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This publication is intended for use by programmers who . 
are doing either of the following: 


1. Writing Operation Control Language (OCL) state- 
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This publication contains two parts. Part | describes 
Operation Control Language (OCL) statements. Part I 
describes disk utility programs. 

Part | 

Refer to Part | if you want to know: 

1. What an OCL statement is. 


2: How to enter the OCL statements required to run 
your jobs. 


How to Use This Manual 


Part fl 


Refer to Part II if you want to know: 


1. 


What disk utility programs are supplied with the 
system. 


The function of each disk utility program. 
The Operation Control Language (OCL) statements 


and utility control statements necessary to request 
each disk utility program. 
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PART | 
OPERATION CONTROL LANGUAGE 


Operation Control Language 1 


Introduction to OCL 


Before the IBM System/3 Model 6 can run a program, it 
must know what you want it to do and where to find the 
information it will need to do the job. You supply the 
what and where information in a series of OCL (operation 
control language) statements. The system can’t run any of 
your programs unless each one is accompanied by a series 
of OCL statements. A series of OCL statements is called 
an OCL cycle. There are four OCL cycles: LOAD, BUILD, 
BUILDC, and CALL. 


Part | of this manual is designed to help you select an OCL 
cycle and fill out the OCL guide sheets your operator will 
use in response to the OCL prompting for each job. You 
can either design an operator’s OCL guide sheet for your 
installation or use the pre-printed form that is available 
(see Operator’s OCL Guide). 


HOW TO USE PART I 


The Conversational OCL section of this manual contains 
information on responding to OCL prompting. There are 
three levels of information for the four OCL cycles. 


Here is how to use each level: 


@ Use the KEYWORD SEQUENCES for an overall under- 
standing of the OCL cycle. The sequences show the 
order of the OCL keywords for a cycle and indicate 
which keywords require responses. 


@ Use the KEYWORD-RESPONSE SUMMARIES for a 
quick recall of all possible entries for each OCL state- 
ment. In the responses column of the summary charts: 


— Words or letters in all capital letters (FORMS, 
BUILD, R1) represent actual entries. 


— Words or letters not in all capital letters (mmddyy, 
Disk Name) represent information you must supply. 


@ Use the KEYWORD DESCRIPTIONS when you need a 
detailed explanation of a particular keyword. 


The section titled Using OCL contains information on pro- 
gramming OCL for complex jobs and special features or 
devices. 


OPERATOR’S OCL GUIDE 


The operator’s OCL guide is available for you to use to tell 
your operator how to respond to the OCL prompting for a 
job. The CALL cycle is not included on the guide because 


the OCL prompting for that cycle is so short. 


IBM 


Job 


For information on filling out the OCL guide, see /BM 
System/3 Model 6 System Programmer's Guide, 
GC21-7530. 


GX21-9126!_ 
Printed in U.S.A. 


International Business Machines Corporation 
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Procedure Name 
F1, R1, F2 or R2 


Columns 75-80 of RPG Control Card or System Program Nai 
| | 2 * ey fea — Other Possible Entry 


(Lines 020-058) 
? for Delayed Response| 


Lt Disk Name (Assigned by Disk Initialization Program) 
rT { [1 [_[- [vtoc Fite Name (if different than response to FILE NAME) 
rf Pett ty 1-899999 (Maximum Number of Records in File) 
Pt Te yy 1-398 (Maximum Number of Tracks for this Fite) 
RBS Es 8-405 Location of First Track of File 


rf { S-Scratch, T-Temporary, P-Permanent 


Pt Tt mmddyy or ddmmyy 


| ft Columns 7-14 of RPG File Description Specifications or Predefined File Name 
-H Disk Name (Assigned by Disk Initialization Program) 
i 


MODIFY OPTIONS 


- Enter RUN 
. Enter CANCEL 
. Correct Statement 
Enter Statement number 
Retype or delete (,) response 
. Create new Statement 
INCLUDE, LOG, FORMS, *(For Comments) 
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Conversational OCL 


Every job run on the Model 6 requires a set of Operation _ 
Control Language (OCL) statements to give the system in- 
formation about the job to be run (such as what program 
to use, what files to use, what job date to use, etc.). An 
OCL statement consists of a keyword and a response. 


The OCL for the Model 6 is called conversational OCL be- 
cause a question and answer procedure is used. The sys- 
tem prints the question called a keyword, and the operator 
supplies the answer called a response. The keyword tells 
the operator the type of information required by the sys- 
tem. For example, the keyword FILE NAME indicates 
that the name of one file used in the program must be 
supplied. By printing a keyword, the system is prompting 
the operator for a response. 


The operator responds to each keyword that applies to the 
job by typing in the relevant information. (When the sys- 
tem prompts FILE NAME, for example, the operator types 
the name of one file that the job uses.) If the system 
prompts a keyword that doesn’t apply to the job, the 
operator bypasses the response. 


‘THE JOB CYCLE 


The system will prompt READY when it is ready to run 
jobs. (For information on preparing the system to run jobs, 
see the /BM System/3 Model 6 Operator’s Guide, GC21- 
7501.) The response to READY tells the system what type 
of OCL cycle you want to run. 


There are four OCL cycles: LOAD, BUILD, BUILDC, and 
CALL. Of the four cycles, only the LOAD cycle is inde- 
pendent; that is, you can run a job by responding just to 

the keywords in that cycle. The other three cycles are inter- 
related; to runa job you must use two or more of them. 


The OCL cycle you choose to use should be based on fre- 
quency of program use and whether the program will be 
run alone or with a group of programs. 


For infrequent jobs use: 


LOAD This provides the OCL statements needed to 


run the job. 
For frequent jobs use one of these: 


BUILD This puts the OCL statements for a job into a 


source library procedure. 
BUILDC _ This chains the procedures. 
CALL 


This calls a procedure from the source library. 


Note: A set of OCL statements in a source library is called 
a procedure. 


System Prompts READY 





YOU WANT 
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S 








Continue from —_— Halt after Stop page Eject page at Change input Change log Change punch Execute Build a 
TO DO THIS job to job with- each job eject at end of job device device device job procedure 
out halting end of job (cancel NOEJECT : 
statement) 
Operator Operator Operator Operator Operator Operator ‘Operator Operator Operator 
types types types types types types types types types 
NOHALT HALT NOEJECT EJECT READER LOG PUNCH LOAD BUILD 
(See index (See index (See index and supplies and supplies 
entry card entry LOG) entry PUNCH) OCL state- OCL 
OCL) = ments | 
OR OR 
OPERATOR 
DOES THIS Operator Operator 
types types 
CALL and BUILDC and 
system reads supplies OCL 
OCL state- 
ments from 
procedure - 
SYSTEM Continues Halts System does System Changes Changes Changes System loads System puts 
DOES THIS from job to after not eject ejects a Input Log Punch and executes statements in 
job without each a page at page at Device Device Device PrOgrar procedure 
halting job endof job — end of job 





System Prompts READY 


The LOAD Cycle 
When you use a LOAD cycle, you're telling the system: 


1. Here are the OCL statements for my program. 


og, Go to the disk drive | specify and find the program | 
want to run. 


3. Load the program into the processing unit. 
4. Run my program. 


The LOAD cycle OCL statements are not saved. If you 
want to run the same job again, your operator must respond 
to all the keywords in the LOAD cycle again. It’s best to 
use the LOAD cycle for jobs you run infrequently because 
this cycle has many keywords and takes quite a while for 
responses. 


The BUILD Cycle 
When you use a BUILD cycle, you're telling the system: 


1. Here are the LOAD cycle OCL statements for job 
XXXX, 


2. Store the LOAD cycle statements on disk so that they 
can be used whenever | want to run the program. 


3: Do not run the program now. 


Once the set of OCL statements is written on a disk, the 
set of statements is referred to as a procedure. The process 
of writing the statements on the disk is referred to as bui/d- 
ing a procedure. You use the BUILD cycle to build a 
procedure. 


Ww 


Although the BUILD cycle is the longest of all the OCL 
cycles in terms of operator time required, it doesn’t run a 
job. Its function is to save the OCL statements for a job 

by writing them on one of the disks. The advantage of the 
BUILD cycle is that once the OCL statements are stored on: 
the disk, the program can be run using them rather than by 
keying all the required statements. 


Delayed Responses in the BUILD Cycle 


Responding to a keyword by typing a question mark is re- 
ferred to as a delayed response. Delayed responses are valid 
only in the BUILD cycle and only after keywords that con- 
tain a delayed response in the keyword-response chart (see 
Keyword-Response Summary — Build Cycle). A delayed 
response to any of these BUILD keywords will do the 
following: 


@ Cause the system to reprompt the keyword during the 
CALL cycle. 


@ Force the operator to respond to the keyword when it is 
reprompted during the CALL cycle. (The system won't 
continue the CALL prompting cycle until the operator 
types a valid response.) 


Control Statements in Procedures 


HALT, NOHALT, LOG, READER, PUNCH, and PAUSE, 
are ignored when read from procedures during the CALL 
cycle and are not put into a procedure during a BUILD 
cycle. 


The BUILDC Cycle 

When you use a BUILDC cycle, you’re telling the system: 

1, | want to prepare a procedure to run a series of jobs 
which are always executed one after the other with 


no interruption. 


2. | The OCL statements for each job in the group are 
in procedures stored on disk. 


3. Here are the names and disk drive locations of the 
‘ procedures for each job in the group. 


4. Build a chained procedure, establishing a sequence in 
which the individual procedures are run. 


A chained procedure is a \ist of the procedures for each job 
in a group, in the order you want to run them. The list 
contains: 

1. The name of the procedure for each job. 

2. The disk drive on which the procedure is located. 
The process of writing the list on a disk is referred to as 


building a chained procedure. BUILDC stands for build 
chained. . 


The CALL Cycle 


CALL is the shortest OCL cycle, having only four keywords. 


When you use a CALL cycle, you're telling the system: 
1. Locate, on disk, the procedure | built for job xxxx. 
2. Use it to run job xxxx. 


The CALL cycle is always linked to a BUILD or a BUILDC 
cycle. 


SYSTEM-OPERATOR INTERACTION DURING 
KEYWORD PROMPTING 


The system analyzes the operator’s response to each key- 
word. If the response contains a formatting error (such as 
invalid characters or duplicate procedure names), the sys- 
tem prints an error message and reprompts the keyword. If 
the operator does not know the correct response, entering 
/* as a response to any prompt will cancel the job and cause 
READY to be prompted. 


System prompts keyword 


Does operator’s OCL guide 
show a response to the keyword 


! 


YES | NO 


Operator types 
in response 


Operator presses end-of-statement 
key to indicate end of statement 


Does response contain errors 


YES . NO 


! 


System prompts 
next keyword in 
the cycle 


System prints 
error message 
or code 





Operator looks up 
error message or code 
and possible options in 
operator’s manual 


Operator uses one 
of the options 
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Keyboard 


Command Key Lights System Status Lights System Control Switches 

These lights tell the operator 1/O attention lights indicate those These switches start and control 
which command keys have devices that need operator attention. the system. 

been turned on. The halt code and field/operation 


lights show system status. 


al 
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10-Key 
Numeric 
Keyboard 
Command Keys Alphameric Keyboard 
Program Start Key Single Quote Field Erase Key Enter — Key 


(For Multi-Volume Files) 













eee 
a 





Command Keys Alphameric and Special Character Keys Numeric Keys Enter + Key 


Question Mark 
(For Delayed The shaded keys 
Response) are function keys 


End-Of-Statement Keys 


The operator must respond to each keyword that the sys- 
tem prompts. The operator responds to a keyword by 
typing the required information (if the keyword applies to 
the job) and by pressing an end-of-statement key. The end- 
of-statement key can be either PROG START or ENTER — 
The Keyword-Response Summary charts in Appendix A 
explain the effect of end-of-statement keys on the prompt- 
ing sequence. 


Program Start (PROG START) or Enter Plus (ENTER+) 


Pressing the PROG START or ENTERG+ key tells the sys- 
tem that the response is complete and to prompt the next 
keyword. 


Enter Minus (ENTER-) 


Pressing the ENTER— key to end a response causes differ- 
ent processing depending on what keyword was prompted 
and what type of OCL cycle is being run. 


Pressing ENTER— after LOAD NAME or UNIT ina LOAD 
Cycle: \f the ENTER— key is used as an end-of-response 
to the LOAD NAME or UNIT prompts ina LOAD cycle, 
the remaining keywords in the cycle will be bypassed and 
MODIFY prompted. 


Pressing ENTER— after LOAD NAME or UNIT ina BUILD 
Cycle: \f the ENTER— key is used as an end-of-response 
to the LOAD NAME or UNIT prompts in a BUILD cycle, 
the system will prompt COMPILE OBJECT; SOURCE, or 
UNIT. 


Pressing ENTER— after FILE NAME: \f the ENTER— key 
is used as an end-of-response to the FILE NAME prompt, 
the system prompts KEY LENGTH and HIKEY for multi- 
volume indexed files (see Mu/ti-Volume Files in Appendix 
A). 


Pressing ENTER— after CALL NAME or UNIT ina CALL 
Cycle: \f the ENTER— key is used as an end-of-response 
to the CALL NAME or UNIT prompts in a CALL cycle, 
the OCL and any included control statements in the called 
procedure are not displayed. However, OCL statements 
with delayed responses are displayed and the system waits 
for a response. MODIFY is not prompted after either the 
OCL statements or the included control statements. 


Pressing ENTER-— in the File Keywords: \f the operator 
responds to FILE NAME, he must also respond to the next 


‘two file keywords: UNIT and PACK. He can, however, 


bypass any or all of the rest of the file keywords. To by- 
pass a single keyword he presses the PROG START key as 
a response. To bypass all of the remaining file keywords 
he presses the ENTER-— key either as an end-of-response 
or as aresponse. Pressing the ENTER— key causes the sys- 
tem to prompt FILE NAME for the next file. 


Statement Numbers in an OCL Cycle 


Statement numbers are assigned by the system to state- 
ments in an OCL cycle. These statement numbers are used 
by the operator when using MODIFY to reference previous 
OCL statements. o 


Each OCL statement, except READY and MODIFY, is as- 
signed a three digit number. The first number in a BUILD 
or CALL cycle is 000, and in a LOAD cycle 010. 


The statement number is incremented by 10 for each major 
keyword (DATE, SWITCH, COMPILE OBJECT, FILE 
NAME, etc.), and by one for each minor keyword (UNIT, 
PACK, LABEL, RECORDS, etc.). 


When the INCLUDE keyword is used to add utility control 
statements or sort source statements to a procedure, these 
included statements are assigned two-digit statement num- 
bers. These statement numbers start with OO and are incre- 
mented by one for each included statement. 


The sample OCL jobs show the statement numbers assigned 
under various OCL cycles. 
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Comments 


Comments can be entered after any response on the same 
line if at least one space is left between the response and 
the comment (see Modify: Entering Comments under 
MODIFY in Part | to add comments during MODIFY time). 


Keyword Sequence for OCL Load Cycle 


No~q— Does operator respond 


READY 
LOAD NAME 
UNIT 


COMPILE OBJECT 
SOURCE 
UNIT 


DATE 
SWITCH 


FILE NAME 


with a file name? 
Yes 


UNIT 
PACK 


LABEL 
RECORDS 
TRACKS 
LOCATION 
RETAIN 
DATE 


MODIFY 


Keywords that must 
be answered in every 
LOAD cycle. 


Keywords that are 
prompted only if 
response to LOAD 
NAME was name of 
compiler. 


Keywords that must 
be answered for 
every file used in job. 


This keyword must be 
answered in every 
LOAD cycle. 


Keyword-Response Summary (Load Cycle) 


Keyword Response 
READY LOAD 
Press PROG START 
LOAD NAME Program Name 
(Not Compiler) 
Press PROG START 


OR OR 
Press ENTER— 


Compiler Program Name 


Press PROG START 
UNIT R1, R2, F1, or F2 
Press PROG START 
OR > 
Press ENTER— 
COMPILE OBJECT f R1, R2, F1, or F2 
OR 
L Press PROG START 


- No Response 


Press PROG START 
SOURCE Name of Source Program 


Press PROG START 


Consideration 
None 


System prompts LOAD NAME 
Name of program to be run 


System prompts DATE after UNIT 
System prompts MODIFY after UNIT 
Name of compiler to be run ($RPG for RPG I Compiler) 


System prompts COMPILE OBJECT after UNIT 


Location of the disk whose object library contains the 


program to be run. 


System prompts next keyword (see LOAD NAME in this 
chart) 


System prompts MODIFY if not compiler 
Your system has more than one object library and you 
don’t want to put the compiled program in the oe 


library which contains the compiler. 


System prompts SOURCE 


System will put the compiled program in the object library 
which contains the compiler. Prompt SOURCE 


Name assigned to RPG II source program when the KSE or 
Library Maintenance Program put it in a source library 


System prompts UNIT 


For information about the KSE Program see the /BM System/3 Model 6 Conversational Utility Programs Reference Manual, SC21-7528. 
For information about the Library Maintenance Program see Part II of this manual. 
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Keyword-Response Summary (Load Cycle) (Continued) 


Keyword 


UNIT 


DATE 


SWITCH 


(XXXXXXXX) 


FILE NAME 


12 


- 


OR 


OR 


L 


OR 


Response 


R1, R2, F1, or F2 
Press PROG START 


mmddyy or ddmmyy 


Press PROG START 
No Response 


Press PROG START 


8-position setting 
(combination of 1’s, 0's, 
and X's) 


Press PROG START 
No Response 


Press PROG START 


File name of file used 
by program 


Press PROG START 


OR 
Press ENTER— 


No Response 


Press PROG START 


Consideration 


Location of the disk whose source library contains the 
RPG II source program 


System prompts DATE 


Required when job date is not the same as the system 
date. (Responses must follow format established during 
system generation.) 


System prompts SWITCH 


Either no date is required for the job 
OR 

you're going to use the system date. 

System prompts SWITCH. 


~ Required to change external indicators in programs. Three 


choices for each position: 


1 = turn indicator on 
O = turn indicator off 
X = leave indicator as is 


System prompts FILE NAME 


~ Job does not use external indicators or you want to use the 


current setting. System prompts FILE NAME 


Columns 7-14 of RPG File Description Specifications, or 
predefined file name for system programs 


System prompts UNIT 


System prompts KEY LENGTH (see Mu/ti-Volume Files 
in Appendix A) 


Either your job uses no files at all 

OR 
you have already described all the files the job uses. You 
want the system to prompt MODIFY 


Keyword-Response Summary (Load Cycle) (Continued) 


Keyword Response Consideration 


UNIT R1, R2, F1, or F2 During a file creation run — location of disk where you 
want to write the file. 
During other runs — location of disk which contains the 
file to be processed. . 


Press PROG START System prompts PACK. 


PACK Disk Name During a file creation run — the name which identifies 
the disk on which you want to write the file. 
During other runs — name which identifies the disk on 
which the file is located. 


Press PROG START System prompts LABEL. 
OR 
Press ENTER— System prompts FILE NAME for next file. 
LABEL VTOC Filename | Required when VTOC Filename is different than response 
to FILE NAME. 
Press PROG START System prompts RECORDS 
OR OR 
Press ENTER— System prompts FILE NAME for next file. 
— No Response 
. Press PROG START You don’t want to respond to this keyword; you want the 
system to prompt RECORDS 
RECORDS @ 1-999999 Number of records in the file. 
| Press PROG START System prompts LOCATION. 
OR OR 
i Press ENTER— System prompts FILE NAME for next file. 
t 
No Response 


Press PROG START You don’t want to respond to this keyword; you want 
system to prompt TRACKS. 


> At file creation time, e/ther the number of records or the number of tracks must be specified. 
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Keyword-Response Summary (Load Cycle) (Continued) 





Keyword Response 
TRACKS & 1-398 
; Press PROG START 


OR OR 


i Press ENTER— 


No Response 


Press PROG START 


LOCATION 8-405 


Press PROG START 
OR 
Press ENTER— 


OR 


No Response 


Press PROG START 


RETAIN | P,T,S,orA 


Press PROG START 
OR 
Press ENTER— 


No Response 


Press PROG START 





Considerations 
Number of tracks the file will occupy. 
System prompts LOCATION. 


System prompts FILE NAME for next file. 


You don’t want to respond to this keyword; you want 


system to prompt LOCATION. 

Use during file creation runs if you want to specify a begin- 
ning track location for the file. 

System prompts RETAIN. 


System prompts FILE NAME for next file. 


| You don’t want to respond to this keyword; you want 


system to prompt RETAIN. 


P — permanent 

T — temporary 

S — scratch 

A — activate scratch 


System prompts DATE. 


System prompts FILE NAME for next file. 


If file is being created, file designation will be T. System 
prompts DATE. 


ap At file creation time, either the number of records or the number of tracks must be specified. 
If operator entered number of RECORDS, TRACKS will not be prompted. 


Keyword-Response Summary (Load Cycle) (Continued) 


Keyword 


DATE 


MODIFY 
(Operator can 
use one, all, ora 
combination of 
the responses.) 


fe 


Response 


mmddyy or ddmmyy 


Press PROG START 
No Response 


Press PROG START 


LOG 


Press PROG START 
CANCEL 

Press PROG START 
FORMS 

Press PROG START 
PUNCH 


Press PROG START 


Asterisk (*) 
Followed by comments 


Press PROG START 


Statement number and comma 


Press PROG START 


Statement number 


Press PROG START 


RUN 


Press PROG START 


Considerations 
Required when job uses a file whose name and label are 
the same as those of another file on the same disk. 


(Response must follow format established during sysgen.) 


System prompts FILE NAME for next file. 


You don’t have to respond to this keyword; you want 
system to prompt FILE NAME, for next file. 


Used only if CRT display or 2222 printer on system. 


System prompts LOG DEVICE. 

Cancel job. 

System prompts READY or displays end-of-job halt. 
Change lines per page printed output for system programs. 
System prompts FORMS DEVICE. 

Change the system punch device. 


System prompts PUNCH. 


Enter comment. 


System waits for next MODIFY response. 
To delete statement 
System waits for next MODIFY response. 
To correct statement (LOAD NAME cannot be changed). 
System waits for correct statement. 
Tells system — 
a. The LOAD cycle is complete. 


b. Run the job. 


System runs job 
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Keyword Sequence for OCL Build Cycle 


No «<q Does operator respond 


16 


READY 
BUILD NAME 
UNIT 


LOAD NAME 
UNIT 


COMPILE OBJECT 
SOURCE 
UNIT 


DATE 


SWITCH 


FILE NAME 


with a file name? 


UNIT 
PACK 


LABEL 
RECORDS 
“TRACKS 
LOCATION 
RETAIN 
DATE 


MODIFY 


2 


Keywords that must 
be answered in every 
BUILD cycle. 


Prompted only if response to 
LOAD NAME or UNIT ended 
with ENTER-— key. 


Keywords that must 
be answered for 
every file used in job. 


This keyword must be 
answered in every 
LOAD cycle. 


Keyword-Response Summary (Build Cycle) 


Keyword 


READY 


BUILD NAME 


UNIT 


LOAD NAME 


UNIT 


Response 
BUILD 


Press PROG START 


Procedure Name 


Press PROG START 


R1, R2, F1, or F2 


Press PROG START 


[ Program Name 
OR Press PROG START 
Compiler Name 


Press ENTER— 


R1, R2, F1, or F2 
i Press PROG START 
OR OR 
: Press ENTER— 
? (Delayed Response) 
Press PROG START 


OR 
Press ENTER— 


Considerations 

None 

System prompts BUILD NAME 

Maximum of six alphameric characters. 

Must begin with alphabetic characters. 

Must not be DIR, SYSTEM, or ALL 

System prompts UNIT. 

Location of the disk where you want to put procedure. 
(Procedure is placed in the source library of the disk 


operator specifies.) 


System prompts LOAD NAME 


Name of program to be run. 

System prompts DATE after UNIT. 

Name of compiler to be run (SRPG for RPG II compiler). 
System prompts UNIT then COMPILE OBJECT, SOURCE, 
UNIT 

Location of disk whose object library contains program 
System prompts DATE 

System prompts COMPILE OBJECT 

Forces operator to respond to unit during CALL cycle. 
System prompts DATE. 


System prompts COMPILE OBJECT 
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Keyword-Response Summary (Build Cycle) (Continued) 


Keyword Response 
COMPILE- R1,R2,F1, or F2 
OBJECT | 

OR 


Press PROG START 
No Response 


Press PROG START 


r— 3 


? (Delayed Response) 


Press PROG START 
SOURCE [ Name of Source Program 
OR 
i Press PROG START 
? (Delayed Response) 
Press PROG START 
UNIT é R1, R2,F1, or F2 
OR 


E Press PROG START 


? (Delayed Response) 


Press PROG START 


Considerations 


Your system has more than one object library and you 
don’t want to put the compiled program in the object 
library which contains the compiler. 


System prompts SOURCE. 


System will put the compiled program in the object library 
which contains the compiler. System prompts SOURCE. 


You will tell the system where to put the compiled program 
during the CALL cycle. 


System prompts SOURCE. 

Name assigned to source program when the KSE or 
Library Maintenance Program put it in a source library. 
library. " 


System prompts UNIT. 


You will supply the name of the source program during 
the CALL cycle. 


System prompts UNIT. 

Location of the disk whose source library contains the 
RPG source program 

System prompts DATE. 


You will supply the location of the source program during 
the CALL cycle. 


System prompts DATE. 


Keyword-Response Summary (Build Cycle) (Continued) 


Keyword 


DATE 


SWITCH 


FILE NAME 


Response 


a mmddyy or ddmmyy 


oP Press PROG START 


ie ? (Delayed Response) 
OR Press PROG START 


No Response 


Press PROG START 


8-position setting 
(combination of 1's, 
O's, and X’s) 


i Press PROG START 


? (Delayed Response) 
OR Press PROG START 


ss No Response 


Press PROG START 


File name of file used 
by program 
Press PROG START 
OR OR 


i; Press ENTER— 


? (Delayed Response) 


[ Press PROG START 


No Response 


Press PROG START 


Considerations 


To put a job date in the procedure. (Response must 
follow format established during sysgen.) 


System prompts SWITCH. 
Forces operator to supply DATE during CALL cycle. 


System prompts SWITCH. 


If no date is necessary for job or system date is acceptable. 
DATE will not be part of procedure. 


Required to change external indicators in programs. 
Three choices for each position: 
1 = turn indicator on 
O = turn indicator off 
X = leave indicator as is 
System prompts FILE NAME. 
Forces operator to respond to SWITCH during CALL cycle 


System prompts FILE NAME 


Job does not require external indicators. SWITCH will 


not be part of procedure. 


Columns 7-14 of RPG File Description Specifications, or 
predefined filename for system programs. 


System prompts UNIT. 


System prompts KEY LENGTH (see Mul/ti-Volume Files 
in Appendix A). 


Forces operator to respond to FILE NAME during CALL 
cycle. 


System prompts UNIT 


Either your job uses no files at all 
OR 


you have already described all the files the job uses. You 
want the system to prompt MODIFY 
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Keyword-Response Summary (Build Cycle) (Continued) 


Keyword Response 


UNIT R1, R2, F1, or F2 


Press PROG START 
? (Delayed Response) 


Press PROG START 


PACK ; Disk Name 
OR 


Press PROG START 
OR 
Press ENTER— 


? (Delayed Response) 
Press PROG START 


OR 
Press ENTER— 


LABEL VTOC Filename 


Press PROG START 
OR OR 
Press ENTER— 


? (Delayed Response) 


L Press PROG START 
OR OR 


i Press ENTER— 
No Response 


Press PROG START | 
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Considerations 


During a file creation run — location of disk where you 
want to write the file. 

During other runs — location of disk which contains the 
file to be processed. 

System prompts PACK. 

Forces operator to respond to UNIT during CALL cycle. 
System prompts PACK. 

During a file creation run — the name which identifies the 
disk on which you want to write the file. 

During other runs — name which identifies the disk on 
which the file is located. 

System prompts LABEL. 

System prompts FILE NAME for next file. 

Forces operator to respond to PACK during CALL cycle. 
System prompts LABEL. 

System prompts FILE NAME. 

Required when VTOC Filename is different than response 
to FILE NAME. 

System prompts RECORDS. 

System prompts FILE NAME for next file. 

Forces operator to respond to LABEL during CALL cycle. - 


System prompts RECORDS. 


System prompts FILE NAME. 


You don’t want to respond to this keyword you want the 
system to prompt RECORDS. 


Keyword-Response Summary (Build Cycle) (Continued) 


Keyword . Response 


RECORDS @ 1-999999 


Press PROG START 
OR 
Press ENTER— 


? (Delayed Response) 
Press PROG START 


OR 
Press ENTER— 


a 


No Response 


Press PROG START 


TRACKS 1-398 
Press PROG START 
OR OR 
Press ENTER— 


| ? (Delayed Response) 


OR Press PROG START 


OR 
| Press ENTER— 


No Response 


Press PROG START 


Considerations 


Number of records in the file. 
System prompts LOCATION. 
System prompts FILE NAME for next file. 


Forces operator to respond to RECORDS during CALL 
cycle. 


System prompts LOCATION. 


System prompts FILE NAME. 


You don’t want to respond to this keyword; you want 
system to prompt TRACKS. 

Number of tracks the file will occupy. 

System prompts LOCATION. 

System prompts FILE NAME for next file. 


Forces operator to respond to TRACKS during CALL 
cycle. 


System prompts LOCATION. 


System prompts FILE NAME. 


You don’t want to respond to this keyword; you want to 
prompt LOCATION. 


@ When a file is created, either the number of records or the number of tracks must be specified. 
If operator entered number of RECORDS, TRACKS will not be prompted. 
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Keyword-Response Summary (Build Cycle) (Continued) 


Keyword Response 
LOCATION 8-405 
OR Press PROG START 


OR 
Press ENTER— 


— ? (Delayed Response) 
Press PROG START 
OR OR 
Press ENTER— 
‘No Response 
Press PROG START 


RETAIN P,T,S,orA 


| 


OR Press PROG START 


OR 
Press ENTER— 


? (Delayed Response) 
Press PROG START 


OR 
Press ENTER— 


2 


No Response 


Press PROG START 
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Considerations 


Use during file creation runs if you want to specify a 
beginning track location for the file. 


System prompts RETAIN. 
System prompts FILE NAME for next file. 


Forces operator to respond to LOCATION during CALL 
cycle. 


System prompts RETAIN. 


System prompts FILE NAME. 


You don’t want to respond to this keyword; you want 
system to prompt RETAIN. 


— permanent 

— temporary 

— scratch 

— activate scratch 


System prompts DATE. 
System prompts FILE NAME for next file. 


Forces operator to respond to RETAIN during CALL 
cycle. 


System prompts DATE. 


System prompts FILE NAME. 


If file is being created, file designation will be T. System 
prompts DATE. 


Keyword-Response Summary (Build Cycle) (Continued) 


Keyword 


DATE 


MODIFY 
(Operator can use 
one, all, or a com- 
bination of the 
responses.) 


Response 


r mmddyy or ddmmyy 


OR 


Press PROG START 


—  ? (Delayed Response) 


~OR 


Press PROG START 
No Response 


Press PROG START 


LOG 


Press PROG START 
CANCEL 


Press PROG START 


PUNCH 

Press PROG START 
FORMS 

Press PROG START 


Asterisk (*) Followed 
by Comments 


Press PROG START 


Statement number and comma 


Press PROG START 
Statement number 


Press PROG START 


Considerations 


Required when job uses a file whose name and label are 
the same as those of another file on the same disk. 
(Response must follow format established during sysgen.) 
System prompts FILE NAME for next file. 

Forces operator to respond to DATE during CALL cycle. 


System prompts FILE NAME. 


You don’t have to respond to this keyword; you want 
system to prompt FILE NAME for next file. 


Used only if CRT display or 2222 printer on system. 


System prompts LOG DEVICE. 
Cancel job. 


System prompts READY or displays end-of-job halt. 


Change the system punch device. 
System prompts PUNCH. 


Change lines per page printed output for system programs. 
System prompts FORMS DEVICE. 


Enter comment. 


System waits for next MODIFY response. 

To delete an OCL or utility control statement in displayed 
procedure. Disk Sort specifications cannot be deleted in 
this manner. To delete Disk Sort specifications, you must 
enter the statement number and press PROG START. When 
the system waits for the corrected statement, enter an 
asterisk (*) in position 7. 

System waits for next MODIFY response. 


To correct statement. 


System waits for correct statement. 
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Keyword-Response Summary (Build Cycle) (Continued) 


Keyword Response Considerations 
INCLUDE Add system program control statements to a procedure. 
Press PROG START System prints ‘ENTER INCLUDED STATEMENTS’ and 


a 2-digit statement number. 


RUN Tells system 
a. The BUILD cycle is complete. 
b. Run the job. 


Press PROG START | System runs the job. 
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Keyword Sequence for OCL BUILDC Cycle 


READY 


BUILDC NAME 








CALL NAME 
UNIT 


Enter— key used after 
CALL NAME or UNIT? 


YES NO 


MODIFY 


Keyword-Response Summary (BUILDC Cycle) 
Keyword Response 


READY BUILDC 


Press PROG START 


BUILDC NAME Master Procedure Name 


Press PROG START 


UNIT R1, R2, F1, or F2 


Press PROG START 


Considerations 


None 


System prompts BUILDC NAME. 


Maximum of six alphanumeric characters. 

Must begin with alphabetic characters. (A-Z or #, @, $) 
Must not be DIR, SYSTEM, or ALL. 

Commas, blanks, quotes (apostrophes), and periods are 
not allowed. 


System prompts UNIT. 
Location of the disk where you want to put procedure. 
(Procedure is placed in the source library of the disk 


which the operator specifies.) 


System prompts CALL NAME. 
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Keyword-Response Summary (BUILDC Cycle) (Continued). 


Keyword 


CALL NAME 


UNIT 


MODIFY 
(Operator can use 


one, all, or a com- 


bination of the 
responses.) 
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Response 


Name of Procedure 


Press PROG START 
OR 
Press ENTER— 


R1, R2,F1, or F2 


Press PROG START 
OR 


Press ENTER— 


LOG 


Press PROG START 
CANCEL 
Press PROG START 


Asterisk (*) followed 
by comments 


Press PROG START 
Statement number and comma 

Press PROG START 
Statement number 

Press PROG START 


RUN 


Press PROG START 


Considerations 


Name of a procedure in the source library. The procedure 
can be an IBM-supplied procedure (RPGB) or a procedure 
created by a BUILD or BUILDC cycle. 

System prompts UNIT. 

System prompts UNIT then MODIFY. 

Location of the disk whose source library contains the 


procedure. 


System prompts CALL NAME (or MODIFY if ENTER— 
used after CALL NAME). 


System prompts MODIFY. 
Used only if CRT display or 2222 printer is on system. 


System prompts LOG DEVICE. 
Cancel job. 
System prompts READY or displays end-of-job halt. 


Enter comment. 


System waits for next MODIFY response. 
To delete OCL or utility control statements. 
System waits for next MODIFY response. 
To correct statement. | 
System waits for correct statement. 
Tells system — 

a. The cycle is complete. 


b. Run the job. 


System runs job. 


Keyword Sequence for OCL Call Cycle 






CALL NAME 


Keywords that must be answered 
in every CALL cycle. 





MODIFY 


Keyword-Response Summary (Call Cycle) 


Keyword” Response Considerations 


READY | CALL 


Press PROG START 


CALL NAME Procedure Name 
Press PROG START 
OR 
Press ENTER— 
UNIT , R1, R2, F1, or F2 


Press PROG START 
OR 
Press ENTER— 


PROCEDURE DISPLAYED ON SYSTEM PRINTER 0 


None 


System prompts CALL NAME. 


Procedure name from the source library directory 


OR 
RPG (the IBM-supplied RPG II compile procedure) 


System prompts UNIT. 
System prompts UNIT, then runs the job. Does not dis- 


play the procedure except for statements with delayed 
responses. Does not prompt MODIFY. 


Location of the disk whose source library contains the 
procedure. 

Print procedure. 

System runs the job. Does not prompt procedure except 


for statements with delayed responses. Does not prompt 
MODIFY. 


(unless ENTER— key was pressed after CALL NAME or UNIT prompts) 


MODIFY LOG 
(Operator canuse 
one, all, ora 
combination of 
the responses.) 


Press PROG START 


CANCEL 


Press PROG START 


Used only if CRT or 2222 printer on system. 


System prompts LOG DEVICE. 
Cancel job. 


System prompts READY or displays end-of-job halt. 
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Keyword-Response Summary (Call Cycle) (Continued) 


Keyword Response 


FORMS 


Press PROG START 


PUNCH 


Press PROG START 


Asterisk (*) Followed 
by Comment 


Press PROG START 


Statement number and comma 


Press PROG START 


Statement number 


Press PROG START 


RUN 


Press PROG START 


@ A. Procedures with INCLUDE Statements 


- Considerations 


Change lines per page of printed output for system programs. 


System prompts FORMS DEVICE. 


Change the system punch device. 


System prompts PUNCH 


Enter comment. 


System waits for next MODIFY response. 


To delete an OCL or utility control statement in displayed 


procedure. Disk Sort specifications cannot be deleted in 


this manner. To delete Disk Sort specifications, you must 
enter the,statement number and press PROG START. When 
the system waits for the corrected statement, enter an 
asterisk (*) in position 7. 


System waits for next MODIFY response 


‘To correct statement in displayed procedure (LOAD 


NAME cannot be changed). 


System waits for correct statement. 


Tells system — 
a. The CALL cycle is complete. 
b. Run the job. 


System runs job. 


When a procedure contains Disk Sort source statements or utility control statements, the display part of the CALL 
cycle is more complex. See Considerations During a CALL Cycle, under MODIFY, Including Control Statements 


in Part |. 


B. Procedures with Delayed Responses 


The procedure is displayed statement by statement (unless the ENTER-— key was pressed after responding to the 
CALL NAME or UNIT keywords). When the system reaches a statement which contains a delayed response, it 
will display the statement keyword and wait for the operator’s response. 


28 


The IBM 5496 Data Recorder Model 1 with System/3 
Mode! 6 Attachment Feature or the IBM 129 Card Data 
Recorder with card input/output attachment feature pro- 
vides card input/output capability for System/3 Model 6. 
The data recorder is selected as system input device during 
OCL prompting. (The directly attached 3741 Data Station 
Model 1 or 2, or 3741 Programmable Work Station Model 
3 or 4 can be selected as the system input device in a 
similar manner.) Control is returned to the keyboard by 
entering a READER statement in the data recorder or by 
performing another program load procedure. 


ASSIGNING DATA RECORDER OR 3741 AS SYSTEM 
INPUT DEVICE 


System Prompts | Operator Enters 


At IPL time DATE — current date 
READER— DATA96 
3741 
Between jobs READY — READER 
DATA96 
EADER— 
A e \ 


Following the DATA96 or 3741 response, all OCL must 
be entered in card image from the data recorder or 3741. 


At the time the data recorder is selected as system input 
device the following switch settings must be: 


Operator Console — DATA RCRDR switch 
to ON LINE 


5496 Data Recorder — 1. Power switch ON 
2. AUTO REL switch ON 
3. Print switch ON or OFF 
4. All other switches OFF 
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129 Card Data 
Recorder — 1. Power switch ON 
2. PROGRAM MODE dial set to 
DATA READ 
3. PUNCH-DIR PUNCH-VERIFY 
switch set to PUNCH 
4. Print switch ON or OFF 
5. REC ADV/CARD FEED switch 


set to AUTO 
Directly attached — See /BM System/3 3741 Reference 
3741 Data Manual, GC21-5113 


Station or 3741 
Programmable 
Work Station 


IBM 129 Programming Considerations 


The user should be aware of the following considerations 
when programming applications for the IBM 129: 


1. System support for the 5496 also supports the 129. 
2. Unique diagnostics for the 129 are not provided. 


3% Object programs cannot be read or punched correctly 
on the 129 (whereas the 5496 provides this function). 
Therefore, the system function LOAD® is not sup- 
ported for the 129. 


4. The OCL command READER-DATASQ6 is used for 
either the 5496 or the 129. 


RETURNING CONTROL TO KEYBOARD 


The keyboard is reassigned as system input device by doing 
either of the following: 


© Enter a /& statement followed by a // READER KEY 
' statement from the Data Recorder. These statements 


“must be placed after a // RUN statement and before a 
// LOAD or // CALL statement. 


@° Perform a program load from the operator console. 
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CONTROL STATEMENTS IN PROCEDURES 


OCL statements that control the entering of other OCL 
statements are invalid in procedures. These statements 
(HALT, NOHALT, LOG, READER, PAUSE, and the 
PUNCH statement) are ignored when read from procedures 
during a CALL cycle and are not put in a procedure during 
a BUILD cycle. 


CARD FORMAT OF OCL STATEMENTS 


The following OCL statements can be loaded from the data 
recorder or the 3741 (records from the 3741 follow the 


same OCL rules as cards from the data recorder). The param- 


eters of the statements that are prompted in conversational 
mode are described elsewhere in this book. The statements 
that are allowed with card input are described in the notes 
following this list. 


In statement formats, special characters such as //, and 
words written in capital letters are information that must 
be used exactly as shown. Words written in small letters, 
such as code, program-name, and unit, represent informa- 
tion that you must supply. 


OCL STATEMENTS 


// LOAD Program-Name, Unit 
// LOAD* 


Explanation: An asterisk indicates that the object program 
will be loaded from the system input device. Program-name 
and unit parameters must not be included. The cards that 
contain the program must follow the RUN statement for the 
program and must be followed by /* to indicate the end of 
the object deck. 


// CALL Procedure-Name, Unit 


// RUN . 
KEY 
//READER < DATA96 
3741 
3741 
te one ee 
// SWITCH 





// COMPILE OBJECT-unit, SOURCE-name, UNIT-unit 


Explanation: OBJECT-unit must be the first parameter on 
the statement. 
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// FORMS DEVICE—PRIMARY, LINES-number 
// FORMS DEVICE—SECONDARY, LINES-number 


Explanation: The DEVICE parameter is optional if read 
from cards. If read from a procedure via CALL cycle, the 
DEVICE parameter must be present and precede the LINES 
parameter. The LINES parameter must be present in either 
case. 


ON 

OFF EJECT 
HLOG (CRT | , NOEJECT 

PRIMARY 

SECONDARY 


Explanation: The log device must be on when the system is 
in conversational mode. If EJECT/NOEJECT is given by 
itself, it must be preceded by a comma: 


//LOG ,EJECT 
//LOG ,NOEJECT 


If neither EJECT nor NOEJECT is coded on the statement, 
EJECT is assumed. 


// FILE NAME-filename, UNIT-unit, PACK-name, 
// LABEL-filename, RECORDS-number, TRACKS-number, 
// LOCATION-track number, RETAIN-code, DATE-date 


Explanation: LABEL, RECORDS or TRACKS, LOCA- 
TION, RETAIN, and DATA parameters are optional. 
NAME-filename must be the first parameter on the 
statement. 


/1 NOHALT 
// HALT 


Ex,lanation: During card input, the system halts each time 
a /* (end-of-job) or /& statement is read. The NOHALT 
statement allows the system to-start the next job without a 
halt. The HALT statement is used to cancel a NOHALT 
condition. If the HALT and NOHALT statements are 
placed in a procedure they are not displayed when the pro- 
cedure is prompted. 


// PAUSE 


Explanation: A PAUSE statement causes the system to 
stop until the operator restarts it. PAUSE statements are 
usually preceded by comments (*) instructing the operator 
to perform some function on the system. If PAUSE state- 
ments and comments are placed in a procedure the com- 
ments are displayed during prompting but the system does 
not stop. 


* 


/& 
j* 


Explanation: /* indicates end-of-job. /& is used as a delim- 
iter and indicates that a new job is starting. If a 3 option 
(immediate cancel) was taken at a halt in the preceding job, 
the system looks for the next LOAD or CALL statement in 
the job stream. The /& statement changes this mode and 
tells the system to read the next // card regardless of what 
itis. In this manner a // READER KEY statement would 
be recognized, returning control to the keyboard. 


GENERAL CODING RULES 


The rules for coding the OCL statements in cards are as 
follows: 


1. // in positions 1 and 2. 


2. One or more blanks between the // and the word that 
forms the statement identifier (LOAD, RUN, CALL, 
etc.). 


3. One or more blanks between the statement identifier 
and the first parameter. . 


4. If you need more than one parameter, use a comma 
to separate them. No blanks are allowed in or 
between parameters. Anything following the first 
blank is considered a comment. 


If you are writing keyword parameters (XKXX-xxx), 
place the keyword first and use a hyphen to separate 
the keyword from the code or data. 


If the parameter is not a keyword parameter, write 
the parameters in the order in which they are shown. 
Keyword parameters can be in any order except in 
the following cases: 


// COMPILE OBJECT-unit must be the first 
parameter. 


// FILE NAME-filename must be the 
first parameter. 


All OCL statements except FILE must not exceed 

96 characters. Because of the large number of param- 
eters possible in a FILE statement, you can continue 
the FILE statement on additional cards. The rules 
are: 


© Place a comma after the last parameter in every 
card but the last. The comma followed by a 
blank indicates the statement is continued. 


© Begin each new card with // in positions 1 and 2. 


© Leave one or more blanks between the // and the 
first parameter. 


Comments can be placed after the parameters on any 
OCL statement (except HIKEY parameters. See 
Coding Multi-Volume File Parameters in this appen- 
dix). Leave one or more blanks after the last param- 
eter and then list the comment. Complete lines of 
comments are entered with the “comment statement. 


Place an * in column 1 and start the comments in 
column 2. 
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STATEMENT ORDER 


/& 


// LOAD 


// CALL 

// RUN 

i READER 
// SWITCH 
// COMPILE 


// FORMS 


// PUNCH 


//LOG 
// FILE 


// HALT 
// NOHALT 
// PAUSE 
*comments 


/* (end-of- 
job) 
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should be the first statement of a job. 


statement must precede RUN statement in 
job stream. If LOAD™%, the cards that 
contain the program must follow the RUN 
statement and be followed by a /* statement. 


statement must precede RUN statement in 
job stream. 


statement must be last statement within the 
set of statements required to run a program. 


statement must precede a LOAD or CALL 
statement and follow a RUN statement. 


statement must follow a LOAD or CALL 


statement and must precede a RUN statement. 


statement must follow a LOAD or CALL 


statement and must precede a RUN statement. 


can appear anywhere in the job stream. 


can appear anywhere in the job stream. 


statement must follow a LOAD or CALL 
statement and precede a RUN statement. 


statements must follow a LOAD or CALL 
statement and precede a RUN statement. 


can appear anywhere in the job stream. 
can appear anywhere in the job stream. 
can appear anywhere in the job stream. 
can appear anywhere in the job stream. 


follows a program deck or data file entered 
from the Data Recorder. 


CODING MULTI-VOLUME FILE PARAMETERS 


When coding card OCL file statements for multi-volume 
files these rules must be followed: 


1. Each parameter that requires multiple entries must be- 
gin and end with a single quote (‘) and have the 
entries separated by commas. 


2. The HIKEY parameter must contain HIKEYs separated 
by commas. When continuation cards are needed for 
HIKEY parameters, comments are not allowed on the 
cards, and the data must start in column four of the 
continuation card. 


3. An apostrophe within a HIKEY must be entered as 
a double apostrophe or it will be decoded as end of 
HIKEYs, and an error will occur. 


4. | When using only one volume of an indexed multi- 
volume file, the HIKEY parameter must be included 
with beginning and ending apostrophes. The other 
file parameters must not have apostrophes. 


5. To indicate packed keys, HIKEY-P’xxxx, xxxx, 
xxxx,’ must be coded. All characters in packed 
HIKEYs must be numeric and all packed HIKEYs 
must be the same length. 


Key length is not a parameter for indexed files when OCL 
statements are entered on cards. Sample job 2 under 
Multi-Volume Files in Appendix A would have the follow- 
ing four OCL file statements if OCL were on cards: 


// FILE NAME-INVMSTR,UNIT-‘R1,R2’, 
PACK-‘VOLI02, VOLI03, VOLI03,VOLI04, 


// VOLIOS’,HIKEY-'175-200-233W1B2, 
380-456-280W3R6,629-384-300W3F6, 


// 949-475-849W8F8,999-999-999W9FY’, 
TRACKS-‘100,193,150,193,80’, 


// LOCATION-‘87,8,49,8,8’, RETAIN-P 


BUILD NAME 


When the system prompts BUILD NAME, the operator 
responds with a name for the procedure that will be put in 
a source library at the end of the sequence. (The operator’s 
response to UNIT determines what source library the pro- 
cedure will be putin.) At the end of the BUILD cycle, the 
system enters the procedure in the source library and puts 
the procedure name in the source library directory as a 
permanent entry. Restrictions on naming a procedure are: 


1. Name must not contain more than six alphanumeric 
characters. Blanks, commas, quotes (apostrophes), 
and periods are not allowed. 


2. _‘ First character must be alphabetic (A-Z or #, @, $). 


3. Name must not be DIR, SYSTEM, or ALL (these 
names are reserved for system use). 


Duplicate Procedure Names 


If the operator’s response to BUILD NAME duplicates the 
name of a procedure already in the source library directory, 
the system prints a message and reprompts BUILD NAME. 


The operator can: 


a Proceed — by typing a different name or the same 
name and a different unit. 


2. Proceed — by typing the same name and unit again. 
The new procedure will then overlay the old proce- 
dure in the source library. 


3: End the job — see description of error message op- 
tions in /BM System/3 Model 6 Operator’s Guide, 
GC21-7501. 


Deleting a Source Library Procedure 


The system gives a P (permanent) designation to all proce- 
dures entered into a source library during a BUILD cycle. 
Therefore, the only way to delete a procedure froma 
source library is to run the Library Maintenance Program. 
(For information about the Library Maintenance Program 
see Part Il of this manual.) 


Keyword Descriptions 


BUILDC NAME 


The response to BUILDC NAME is the name of a master 
procedure you want to build. The rules and restrictions 
are the same as for the keyword BUILD. 


CALL NAME 


The response to CALL NAME is the name of the procedure 
you want to run. This can be either: 


@ The name of a procedure entered in a source library after 
a BUILD or BUILDC cycle. (The operator’s response to 
the keyword BUILD NAME, or BUILDC NAME deter- 
mines the name of the procedure.) 


© RPG (the IBM-supplied RPG II Compile Procedure). 


\f the operator does not know the procedure name, he can 
get a printout of the source library directory by running the 
Library Maintenance Program. (See Part !1 of this manual 
for more information about this program.) 


The operator can call a procedure without displaying all its 
OCL statements by pressing the ENTER— key after respond- 
ing to CALL NAME or UNIT. The procedure is loaded and 
run. The only statements displayed are those with delayed 
responses. The system does not prompt MODIFY after 
either the OCL statements or the included control 
statements. 
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COMPILE KEYWORDS 


COMPILE OBJECT Keyword 


The keyword COMPILE OBJECT requires a response (R1, 
R2, F1, or F2) if the system has more than one object 
library and you do not want to put the compiled program 
in the same object library where the compiler resides. 


If the operator does not respond to COMPILE OBJECT, 
but merely presses the PROG START key, the system 
places the compiled program in the object library where 
the compiler resides. 


F1 refers to the fixed disk on drive one. 
R1 refers to the removable disk on drive one. 
F2 refers to the fixed disk on drive two. 
R2 refers to the removable disk on drive two. 


‘SOURCE Keyword 


Ina LOAD Cycle 


SOURCE is prompted only when the response to LOAD 
NAME is the name of a compiler (such as $RPG). The re- 
sponse to SOURCE is the name of the source program you 
want to compile. (This name must be the one you used 
when you put the program in a source library during a KSE 
or Library Maintenance Program run.) 


For information about the KSE Program see the /BM 
System/3 Model 6 Conversational Utility Programs Refer- 
ence Manual, SC21-7528. For information about the 
Library Maintenance Program see Part II of this manual.) 
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Ina BUILD Cycle 


There are two possible responses to SOURCE during a 
BUILD cycle: the name of a source program you want to 
compile or a delayed response (a question mark). Each 
response has a special significance to the system... 


Response Tells System 
Name of You're building a procedure that will 
Source compile a particular source program. (The 
Program program must be in a source library.) The 
You Want program name you supply must be the 
to Compile one you used when you put the program 

in a source library during a KSE or Li- 

- brary Maintenance Program run. 
? 

(Delayed You’re building a general compile proce- 
Response) dure. You will supply the necessary 


source program information (name and 
location of the source program and where 
you want to put the compiled program) 
during the CALL cycle. 


UNIT Keyword 


The response to UNIT gives the location of the disk whose 
source library contains the source program being compiled. 
Possible responses are F1, R1,F2, and R2. 

F1 refers to the fixed disk on drive one. 

R1 refers to the removable disk on drive one. 

F2 refers to the fixed disk on drive two. 

R2 refers to the removable disk on drive two. 


DATE 


This DATE keyword lets the operator change the system 
date for a particular job. (The system date is used in head- 
ings on program listings, in headings on printed output, and 
in labels for new files.) 


The system date is established at IPL time. This date is 
used for every job unless the operator overrides it. 





DATE (continued) 


Overriding the System Date 


The operator can override the system date for any single job 
by typing in a new date when the system prompts the key- 
word DATE. The new system date is used only for the one 
job. When that job is finished, the system date automatical- 
ly reverts to its IPL setting. 


Format of the DATE Statement 

Although the operator can override the system date, he 
cannot change the date format. The system date format is 
established during sysgen as either: 


© mmddyy (month/day/year) — For U.S. installations 


© ddmmyy (day/month/year) — For World Trade 
installations. 


The three elements (month/day/year) can be separated by 
any non-numeric symbol (except a comma, quotation mark, 


or blank) or run together without any separation. 


In a system using the mmddyy format, for example, all of 
the following would be valid ways of typing May 12, 1971: 


© 05/12/71 
© 05-12-71 
© 051271 


© 5/12/71 


EJECT 


The operator can respond to the READY prompt with 
EJECT. The logging device will then eject the forms to the 
top of the next page at the end of each job. EJECT need 
only be entered to cancel the effect of a NOEJECT state- 
ment. 





FILE KEYWORDS 


System-Operator Interaction During Prompting of File 
Keywords 


YES“ 


NO-< file keyword 


System prompts 
FILE NAME 


Does ons job No 
use a file? 


YES 


Operator responds 
to FILE NAME, 
UNIT, and PACK 


System prompts 
next file keyword 


More file 
information —~——>-NO 
necessary? 







Operator presses 
YES the ENTER— 
key 
Operator responds 
to next file 


keyword System bypasses 


rest of the file 


Is this the last keywords 


(DATE)? 
YES 


System prompts 
FILE NAME 


Does the job use 


— — 
another file? be 


Operator presses 
PROG START 


System bypasses 
file keywords 


System prompts 
MODIFY 


Keyword Descriptions 


FILE KEYWORDS (continued) 


For every file used in a job, you must respond to the fol- 
lowing keywords: 
Keyword . Response 
FILE NAME FILENAME from the file specification at 
compile time 
OR 


Predetermined file name (for $RPG, $KDE, 
$DSORT, $DGSRT, $COPY, or $MICR). 


UNIT R1, F1, R2, or F2 (Location of disk where 
you want to write a new file or which con- 
tains a file to be processed.) 

PACK Name assigned to a disk by the Disk Initiali- 


zation Program. This name can be one which 
identifies a disk on which you want to write 
a file during a file creation run or a name 
that identifies a disk on which a file is 
located. 


File Name for Customer Programs 
For a file used in an RPG II compiled customer program, 


the operator’s response to FILE NAME is the name in col- 
umns 7-14 of the RPG II File Description Specifications. 


File Name for $RPG, $DSORT, $COPY, $MICR, and 
SKDE 


For $RPG’s predefined file names, see /BM System/3 
Models 4 and 6 RPG /! Reference Manual, SC21-7517. 


For $DSORT and $DGSRT, see /BM System/3 Disk Sort 
Reference Manual, SC21-7522. 


For $COPY, see Part I! of this manual. 

For $MICR, see /BM System/3 Model 6 Utility Program for 
the [BM 1255 Magnetic Character Reader Reference 
Manual, SC21-7527. 


For $KDE, see /BM System/3 Models 4 and 6 Conversa- 
tional Utility Programs Reference Manual, SC21-7528. 
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Multiple Files 


A job often involves several files. When this is the case, the 
operator must respond to several series of file keywords. 
The first time the system prompts the file keywords, the 
operator responds with information about one file. After 
the operator responds to DATE, the system will again 
prompt FILE NAME. This time the operator responds with 
the name of the second file. 


When he has responded to the file keywords for all the files 
that will be used in the job, the operator should respond to 
FILE NAME by pressing PROG START. The system then 
bypasses the rest of the file keywords and prompts. 
MODIFY. 


A maximum of 15 file statements can be used for each job 
when running in conversational OCL mode. For a maximum 
number of files in card OCL mode, see Maximum Number 
of Files in SWA. 


UNIT Keyword 


Possible responses to the keyword UNIT are F1, R1, F2 
and R2 

F1 refers to the fixed disk on drive one. 

R1 refers to the removable disk on drive one. 

F2 refers to the fixed disk on drive two. 

R2 refers to the removable disk on drive two. 


PACK Keyword 


Whenever a job involves a disk file you must tell the system 
the name of the disk where the file is (or will be) located, 
so the system can make sure that disk is mounted before 
the job is begun. To tell the system the name of the disk 
the file is on, the operator responds to the keyword PACK 
with the name assigned to the disk during its initialization. 
(The Disk Initialization section of Part I! of this manual 
explains the procedure for naming a new disk.) 


Although most installations keep a record of the names and 
contents of each of their disk packs, the operator can al- 
ways get the name of any disk by running the File and Vol- 
ume Label Display Program. The disk name is part of the 
output of this program. 


LABEL Keyword 


When a file is created, the system enters a file name in the 
VTOC. The keyword LABEL refers to this VTOC file 
name. Unless the operator responds to LABEL, the name 
entered in the VTOC is the same as the operator’s response 
to FILE NAME. 


LOAD NAME 


For Customer Programs 

The response to LOAD NAME is the name of the customer's 
RPG I! program. 

For System Programs 


The response to LOAD NAME is the name of the specific 
system program you want to run. 


Name Program 
$ALT Alternate Track Assignment 
$BUILD Alternate Track Rebuild 
$CCP Communications Control Program 
(Model 4 only) 
scone Copy/Dump 
$KCOPY Copy/Dump — 
$FORT FORTRAN Compiler (Model 6 only 
SINIT Disk Initialization 
$LABEL File and Volume Label Display 
$DELET File Delete 
$MAINT Library Maimtenanes 
$KSE Keyboard Source Entry 
$KDE Keyboard Data Entry 
$DIU Data Interchange 
$MICR 1255 Magnetic Character 
Reader Utility (Model 6 only) 
$RPG RPG I! Compiler 
$DSORT Disk Sort 
$DGSRT CCP/Disk Sort (Model 4 only) 
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MODIFY # 


System-Operator Interaction During Modification 
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System prompts MODIFY 


Do you want to correct a statement? 
NO YES 


Operator types 3 
digit statement 
number and 
corrected statement. 


Do you want to delete a statement? 


NO YES 


Y 


Operator types 3 
digit statement 
number and 
comma (,). 


Do you want to enter a comment? 
NO YES 


Operator types 
asterisk (*) 
and comment. 


Do you want to enter a FORMS 
statement? 


NO YES 


Operator types 
FORMS and new 
lines per page 
setting. 


Do you want to enter a PUNCH 
statement? 


NO YES 
| Operator types 
© PUNCH and new 
punch device. 
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zi you want to cancel job? 
NO YES 


Operator types 
CANCEL 


System erases 
OCL cycle 


System prompts 
READY 


Do you want to run the job? 
NO YES 


Operator types 
RUN 


System runs 
job 


System prompts 
READY 


Is this a BUILD cycle? 
YES NO———————_ > 


Do you want to include source 
statements for the Disk Sort 
Program or for one of the 

utility programs in the procedure? 


YES NO-———__—_—>- 


L 


MODIFY (continued): 


Operator types INCLUDE 


System prints 2-digit statement number 







Operator types statement 


System prints next statement number 


Do you want to include another 
statement? 


NO YES 


Operator types RUN 


System prompts MODIFY 


gout 


© 


Note: To delete Disk Sort specifications, you must 


enter the statement number and press PROG START. 


When the system waits for the corrected statement, 
enter an asterisk in column 7 of the statement. Typing 
the statement number and comma doesn’t delete Disk 
Sort specifications. 


© 
7 


Do you want to change or delete any of 
the included statements? 












NO YES 


Operator types 2-digit statement _ 

number and: 

— Tocorrect statement, types 
corrected statement. 

— To delete statement, types 
comma. 

— To delete Disk Sort specifi- 
cation, types asterisk in 

position 7 of statement. 





Do you want to cancel the job? 


! 


NO YES 


Operator types 
CANCEL 


System erases entire 
OCL cycle 


System prom pts 
READY 


Operator types 
RUN 


System puts the 


- procedure with 


included statements 
in the source 
library 


System prompts 
READY 
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MODIFY (continued) 








Changing a Previous OCL Statement 





System prompts 
MODIFY 


Enter here if you’ve 
lready used a 
ODIFY option 

in the job 






Operator types three-digit 
number of OCL statement 
(or two-digit number of 
included statement) to be 
changed and PROG START 


System tabs to 
position 35 (position 
O after INCLUDE) 
and waits for response 


Operator. types 
new response 


YES ~——_—_—__———-Morre statements 
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to change? 


NO 


Does operator 
want to use another 
MODIFY option? 


YES NO 


! 


Operator 
types RUN 


See keyword description 
of the other MODIFY 
option 


Deleting a Previous OCL Statement 


System prompts 
MODIFY 


Enter here if you've 
already used a 
MODIFY Option 





in the job 
Operator types 
three-digit number 
of OCL statement 
to be deleted 
Operator types 
comma and PROG’ 
START key 
YES «————- More statements 
to delete? 
NO 
Does operator 
want to use another 
| MODIFY option? 
YES NO 
See keyword Operator types 
description of RUN 
the other 
MODIFY 
option 


Deleting Multiple Keywords 


When the OCL statement number for FILE NAME is 
deleted, all keywords for that file will be deleted from the 
cycle. For example, the LABEL or DATE keywords could 
be deleted from a file keyword statement without deleting 
the other keywords for that file. However, if FILE NAME 
_is deleted, that entire file would be deleted from the cycle. 


MODIFY (continued) 


Entering Comments 


System prompts 
MODIFY 


Enter here if you've 
already used a 
MODIFY option 

in the job 





Operator types: 
1. An asterisk (*) 
2. Acomment 


Does operator want 
to use another 
MODIFY option? 


YES NO 


See keyword description | Operator types 
of the other MODIFY RUN 
option 


Points to Remember When Entering Comments 


° 


The usual purpose of-a comment is to remind the oper- 
ator of something he must do (mount a new disk pack, 
for example) or to document a problem during a pro- 
gram run. 


After the operator types a comment, it is immediately 
displayed on the system printer. 


Comments typed during a BUILD cycle become a per- 
manent part of the procedure.: They are entered into 
the source library along with OCL statements. 


Comments typed during a LOAD or CALL cycle do not 
become a permanent part of the job; their only purpose 
is to help document the program run. 


. Cancelling Job 


System prompts MODIFY 


Enter here if you’ve 
already used a 
MODIFY option 

in the job 





Operator types CANCEL 


(System gets ready 
to run another job) 
Is HALT in effect —————_—_______»- YES 


NO System displays 
~ end-of-job halt 


Operator presses 
PROG START 


System prompts READY for 
next job 


. Effect of Entering CANCEL During a LOAD Cycle 


The entire LOAD cycle will be overlaid by the next OCL 
cycle. 


Effect of Entering CANCEL During a BUILD Cycle 

The entire BUILD cycle will be overlaid by the next OCL 
cycle. (If a duplicate procedure is being built, and CAN- 
CEL entered, the original procedure remains in the source 
library. Except: if CANCEL is entered after INCLUDE, 
neither procedure will be in the library.) 


Effect of Entering CANCEL During a CALL Cycle 


The entire CALL. cycle will be overlaid by the next OCL 
cycle. The original procedure will be unchanged. 
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MODIFY (continued) 


Changing Forms Length 


System prompts MODIFY 


Enter here if you’ve 
already used a 
MODIFY option 

in the job 





Operator types FORMS 


- System prompts FORMS DEVICE 


Operator presses 
PROG START (P/S) 
or types PRIMARY 
or SECONDARY 


System prompts LINES 


Operator types 
new lines per 
page setting 


Operator presses 
PROG START 

(for current lines 
per page setting) 


Does operator want to 
use another MODIFY 
option? 


YES NO 


See keyword Operator types 


description RUN (When the 

of the other keyword FORMS is 
MODIFY entered in an OCL 
options sequence, a system halt 


occurs after RUN in case 
the operator needs to 
change paper in the 
printer. The system re- 
mains idle until the oper- 
ator enters zero and 
presses PROG START.) 
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Purpose of FORMS 


Standard output for Model! 6 printers is 66 lines per page. 
At IPL time, 66 lines per page is established as the forms 
length unless a different value was specified during system 
generation. 


To change the lines per page of printed output for RPG II 
programs, you code line counter specifications. To change 
the lines per page of printed output for system programs 
(utilities, Disk Sort, and the RPG Compiler), you type the 
keyword FORMS and an appropriate response. Minimum 
forms length is 12, maximum is 112. 


If line counter specifications and an OCL FORMS state- 
ment are both used in one job, and if the specified lengths 
are different, the system will accept the RPG II line count- 
er specifications and ignore the OCL FORMS statement. 


The new lines per page setting (from either an OCL FORMS 
statement or an RPG II line counter specification) remains 
effective until another OCL FORMS statement or RPG II 
line counter specification for that device is read. 


FORMS can be entered during the MODIFY phase of any 
OCL cycle. (The system never prompts FORMS.) 


Whenever the operator types FORMS during an OCL cycle, 
a system halt follows RUN in case the operator needs to 
change the paper in the printer. Job processing does not 
resume until the operator enters a zero (option O) and 
presses the PROG START key. 


Purpose of Punch 
MODIFY (continued) e 


The default punch device can be chosen at system generation. 
To change the punch device, the PUNCH statement is used. 
PUNCH can be entered during the MODIFY phase of the 
LOAD, BUILD, or CALL cycle (it can also be entered when 
the system prompts READY-— see The Job Cycle). The 
PUNCH statement remains effective until another OCL 
PUNCH statement is read or until the next IPL. 


Changing Punch Device 


System prompts 
MODIFY 


Enter here if 
you've already 
used a MODIFY 
option in the job 





Operator types 
-PUNCH 


System prompts 
PUNCH 


Operator types 
3741 or DATA96 
and presses 
PROG START 


Does operator 
want to use 
another 
MODIFY 
option? 


YES 7 

See keyword Operator types 
description of RUN 

the other 

MODIFY 

options 
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MODIFY (continued) | | 


Including Control! Statements 
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System prompts 
MODIFY 


Enter here if 
you've already 
used a MODIFY 
option in the job 





Operator types 
INCLUDE 


System displays a 2-digit 
number for the first 
INCLUDE statement 


Operator types a 
statement 


System displays the 
next statement 
number for the 
INCLUDE 
statements 


YES~&1Is there another 


new statement to 
be included in the 
procedure? 


! 


NO 


Operator types RUN and 
presses PROG START 


System prompts MODIFY 
(allows operator to change 
included statements) 

6 


‘Operator types 2-digit 


Do you want to change or delete 


an included statement? | 


NO YES 


Y 
© 


Do i want to cancel a 


NO YES 


Operator types RUN Operator types CANCEL 


System erases 
procedure 


System writes 
procedure with 
included statements in 
the source library 


System prompts 


System prompts READY 


READY 


© 


Do you want to correct an included 


oe ras 


NO YES 


Operator types 2-digit 
Do you want to statement number 


delete included 


ogee spaces to next line 


YES NO 


Operator enters corrected 
statement 





statement no. and either 

— comma 

— asterisk in position 7 
(if Disk Sort spec.) 
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Purpose of INCLUDE 


The keyword INCLUDE lets you add system program con- 
trol statements to a procedure. INCLUDE tells the system 
that the next entry will be a set of control statements for 
one of the system programs. (As used here, control state- 
ments refer to both the control statements for the utility 

programs and the sequence specifications for the Disk Sort 
program.) A maximum of 25 control statements can be 
included in each procedure. 


Restrictions After INCLUDE 


After including statements in a procedure, the procedure 
cannot be changed. MODIFY is prompted to allow chang- 
ing included statements. If CANCEL is used after INCLUDE 
in a procedure that overlaid a duplicate procedure, neither 
the original nor the new procedure will be in the source 
library. 


Considerations During a CALL Cycle 


When the operator uses the CALL cycle to get the proce- 
dure out of the source library, the system displays the pro- 
cedure in two separate steps: first the OCL statements, 
then the INCLUDE statements. The following shows de- 
tails of the two display steps: 


1. System displays OCL statements for the job. 


e System prompts MODIFY (to give operator a 
chance to correct any of the OCL statements). 


@ Operator, after he has made any necessary correc- 
tions, types RUN. 


2. System displays heading: INCLUDED STATE- 
MENTS, then displays the INCLUDE statements. 


© System prompts MODIFY (to give operator a 
chance to correct any of the INCLUDE 


statements). 


@ Operator, after he has made any necessary cor- 
rections, types RUN. 


@ Model 6 runs the job. 


If the operator presses the ENTER— key after responding 

to CALL NAME or UNIT, the job is run without displaying 
the statements or prompting MODIFY (the user program or 
utility that is run can display the control statements). State- 
ments with delayed responses are still displayed, to allow 
the operator to enter the response. 


NOEJECT 


Normally the logging device ejects a page when end of job 
occurs. The operator can respond to the READY prompt 
with NOEJECT. The logging device will then not eject the 
torms. The NOEJECT statement remains in effect until an 
EJECT statement is entered (either in response to a READY 
prompt or on a card OCL // LOG statement) or an IPL 
occurs. 


NOHALT 


Normally the system halts when a job ends. The operator 
can respond to the keyword READY with NOHALT. The 
‘system will then prompt READY for the next job when 
each job ends. The NOHALT will remain in effect until a 
HALT statement is entered or an IPL occurs. 


READY 


When the system is ready to begin the OCL sequence for a 
new job, it prompts READY. é 


The operator responds by typing the name of one of the 
four OCL cycles: LOAD, BUILD, BUILDC, or CALL. 
The system then prompts the other keywords in the 
sequence. 


(OCL cycles for the Model 6 are described in the Summary 
of Conversational OCL at the front of this manual.) 
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RUN is the last entry in any OCL cycle. The operator types 
RUN when he is satisfied that the OCL cycle is complete 
and correct. The following table shows what happens when 
the operator types RUN during any of the three OCL 
cycles: 


Sequence Result 

LOAD Job is run. 

CALL Job is run. 

BUILD The OCL statements are put in a source 


library. 


If INCLUDE statements are part of the procedure the 
BUILD and CALL cycles require two RUN entries. (See 
Considerations During a CALL Cycle under MODIFY — 
Including Control Statements in Part 1.) 


After the operator types RUN, the system processes the 


job and end-of-job occurs. The system then prompts 
READY for the next job. 


SWITCH . 


The OCL SWITCH statement allows setting the eight external 
indicators on or off. 


The operator-system interaction involved with the SWITCH 


statement is different for each OCL cycle as shown in the 
following charts. 
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Indicator Settings 


The indicator setting has eight positions, corresponding to 
the eight external indicators. 


The three possible entries for each position are: 
1 — sets corresponding indicator on. 
O — sets the corresponding indicator off. 
X — leaves the corresponding indicator unchanged. 
For example, if the operator keys in XXXX10XX: 
Indicator five will be set a 
Indicator six will be set off. 


Indicators one, two, three, four, seven, and eight will! be 
unchanged. 


IPL Considerations 


All eight external indicators are set off at IPL. The only 
way to set an indicator on is by responding to the keyword . 
SWITCH with a new eight-position response containing a 1 
in the appropriate position. 


Duration of SWITCH Setting 
When an OCL SWITCH statement sets an indicator on, the 


indicator remains on until another SWITCH statement sets 
it off or the next IPL occurs. 


Operator-System Interaction for SWITCH Statement 
(LOAD Cycle) 


System displays 


SWITCH and 
current indicator 
setting 
Operator types Operator presses 
new 8-position PROG START (to 
setting accept current 


setting) 


System prompts 
FILE NAME 
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Operator-System Interaction For SWITCH Statement (BUILD Cycle) 


System prompts SWITCH 
and current indicator 


setting 

Ona types at types ? Oceratee presses 

8-position indicator (delayed response) PROG START (if pro- 

setting gram will not use 
external indicators, or 
if current setting is the 
one you want). 

Operator presses Operator presses (A SWITCH statement 

PROG START PROG START will not be part of the 






source library 
procedure.) 


System prompts 
FILE NAME 


Operator-System Interaction for SWITCH Statement (CALL Cycle) 


During the BUILD cycle, the operator 
responded to the keyword SWITCH by 


Pressing Typing a? Typing 8-position 
PROG START (delayed response) indicator setting 
During CALL cycle During CALL cycle During CALL cycle 


System displays 


SWITCH and 
current indicator 
setting 
Operator types Operator presses (The keyword SWITCH 
new 8-position PROG START (To and the 8-position 
setting accept current indicator setting are en- 
setting) tered in the source library 
and displayed with the 
(SWITCH will not other OCL statements 
be part of the during the CALL 
CALL cycle.) cycle.) 


CALL cycle continues 
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MULTIVOLUME FILES 


If-a file is too large for one disk, you can continue it on one 
or more subsequent disks. Such files are called multi- 
volume files. (A volume is one disk.) Multivolume files 
can be online or offline. A file is online if all volumes are 
mounted when the job begins. The number of UNIT and 
PACK parameters are equal. An offline file has fewer 

. UNIT parameters (shares same unit). 


Creation 


The ways that you can create a multivolume file depend 
on the type of file you are creating. For a sequential and 
indexed file, the records are stored in consecutive locations 
on disk, in the order that they are read. One disk is filled 
at a time. 


For sequential files, each volume must be filled before the 
next volume is loaded. For indexed files, each volume need 
not be filled. Each indexed volume is loaded until a key- 
field is reached that is higher than the HIKEY for that . 
volume, then the next volume is loaded. Indexed files must 
be loaded in keyfield sequence. A halt occurs if a volume 

is filled and there is not a record with a keyfield equal to 
the HIKEY for that volume. For example, suppose the 
HIKEY for a volume is 199. You load a record with the 
keyfield 195. It is less than the HIKEY, so it is loaded 

on the volume. Next, you load a record with the keyfield 
200. Record 200 would be loaded on the next volume, and 
a halt would occur. The reason for the halt is that you did 
not load a keyfield record equal to 199 before you jumped 
to a new volume. This halt can be ignored. You can load 
the next volume and at some future time insert a keyfield 
record equal to the HIKEY. To insert a record after the 
loading sequence has passed, a random add must be done. 


The date assigned to all volumes of a multivolume file is 
the system date that was in the DATE statement when the 
first volume of the file was created. 


Indexed and sequential files may be either online or offline. 


If using removable disks when creating sequential or in- 
dexed files, you can mount a disk, wait until the system 
indicates it is filled, then mount the next disk. If you 
have two drives, you can mount the two disks, wait until 
the first one is filled, then replace it with the third while 
your program fills the second disk. In either case, you 
cannot use more than 40 disks per job. 
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Space can be allocated on all volumes of a multivolume 
file if the volumes are online at the time of the allocation. 
Space can also be allocated for an offline file, other than 
the initial volume, but the packs must be empty packs or 
space (TRACKS and LOCATION) known to be available. 
You can use both fixed and removable disks with any on- 
line multivolume file. 


Space on a volume of a multivolume file is reserved after 
one or more records are placed in that volume. 


Direct files must be online. Direct files are created ina 
non-consecutive manner. When creating such files, you 
are required to mount all the disks on your disk unit at the 
same time. The maximum number of disks you could use, 
therefore, is two if you have only one drive, or three or 
four if you have two drives. 


Processing 


The ways in which you can process multivolume files 
depend on the method your program uses to get records 
from the file. If records are read from a sequential or 
indexed file, you can mount a volume, wait until all of the 
records have been read from the volume, then mount the 
next volume. If you have two drives, you can mount two 
volumes, wait until all of the records have been read from 
the first volume, then replace that volume with the third 
while your program reads from the second volume. When 
you are processing files offline, the disks must be removable. 
When online, any combination of fixed and removable 
disks is acceptable, but all must be mounted and must 
remain mounted. 


During the processing of a volume of a multivolume file, 
if the system determines that the file date on this volume 
is different from the file date on the previous volume, the 
system assumes that this volume is not part of the multi- 
volume file. The results caused by the difference in dates 
depend on the access method you are using: 


@ If you are using an input access method (reading from 
the file), a halt will occur indicating that the system 
cannot find the file on this volume. 


@ If you are using an add access method (writing to the 
file), the system assumes you are extending the file and 
the following will occur: 

a. The file date in the file label will be changed to the 
date of the previous volume. 
b. The file label will be changed to reflect an empty file ° 
(all pointers are reset). 
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OCL Considerations 


Multivolume files, like other disk files, must be described 

in FILE statements. However, because a multivolume 

file involves more than one disk, some FILE keywords 
require a list of data or codes to describe all of the disks 
containing the files. This section explains the considerations 
for using these lists. Each list must begin and end with 
apostrophes. 


List Requirements 


The PACK parameter requires a list. The UNIT parameter 
may require a list while LOCATION, TRACKS, HIKEY, 
and RECORDS require a list if they are stated. The 
considerations for using the lists in these parameters are 
included in the keyword discussions following. 


KEY LENGTH: This keyword will be prompted if the 
response to FILE NAME indicated a multivolume file 
(see Enter Minus under End-of-Statement Keys in Part !). 
If this is an indexed file, you must respond to KEY 
LENGTH with a two-digit number 01 through 29. If this 
is not an indexed file pressing the PROG START key will 
skip the HIKEY keyword. 


HIKEY: This keyword must be answered for indexed files. 
The highest keyfield for each volume must be entered. All 
characters except commas are allowed as keys. The length 
of each HIKEY must equal the response to KEY LENGTH 
and a HIKEY must be entered for each volume. Ifa 
HIKEY with fewer characters is entered, blanks will be put 
into the remaining positions. If an apostrophe is used as part 
of a HIKEY, it must be entered as two apostrophes or it 
will be decoded at the end of HIKEY list and an error will 
‘occur. When using only one volume of an indexed multi- 
volume file, the HIKEY must be entered with beginning 
and ending apostrophes. . 


The keys in an indexed file can be packed numeric 
characters. To indicate that a file has packed keys, the 
Operator responds to KEY LENGTH with nn,P where 

nn is 01-08. Only numeric characters (0-9) are allowed in 
packed HIKEYS. When responding to HIKEY, the 
number of characters entered per key is equal to 2nn—1. 
If the KEY LENGTH response is 07, the HIKEYS would 
be 13 characters long. 


52 


UNIT: The keyword UNIT must be followed by a code or 
codes indicating where the disks that contain the file will 
be located on the disk unit. No UNIT parameter may be 
repeated. The codes are as follows: 


Code Meaning 

R1 Removable disk on drive one. 
F1 Fixed disk on drive one. 

R2 Removable disk on drive two. 
F2 Fixed disk on drive two. 


The order of codes in the UNIT parameter must corres- 
pond to the order of names in the PACK parameter. 


When you are creating or processing a sequential or in- 
dexed file, you can use the same drive for more than one 
of the disks; however, the units must then all be removable 
units. If they are, you must not repeat the code for the 
drive in the UNIT parameter. When the number of codes 
in the UNIT parameter is less than the number of names in 
the PACK parameter, the system uses the codes alternately. 


If F1 or F2 is specified, the file must be online multivolume. 


PACK: The names of the disks that contain, or will contain, 
the multivolume file must follow the keyword PACK. (PACK 
names must be unique for proper functioning.) 


When a multivolume file is created, the system writes a 
sequence number on the disks to indicate the order of the 
disks. The disks are numbered in the order in which you 
list their names in the PACK parameter. 


When a multivolume file is processed, the system provides 
two checks to ensure that the disks are used in the proper 
order: 


1. It checks to ensure that the disks are used in the 
order that their names are listed in the PACK 
parameter. 

2. It checks the sequence numbers ot the disks used to 


ensure that they are.consecutive and in ascending 
order (01, 02, and so on). 


The system stops when it detects a disk that is out of 
sequence. The operator can do one of three things: 


1. Mount the proper disk and restart the system. 


2. Restart the system and process the disk that is 
mounted if the sequence is ascending (for consecu- 
tive input and update processing). 


3. End the program. 


Consecutive input or update sequence numbers are ignored 
if the file was not created as multi-volume. If the file is 
multi-volume and the sequence is ascending but not 
consecutive, a diagnostic halt is given which allows the 
proceed option. 


TRACKS or RECORDS: The keyword TRACKS or 
RECORDS must be followed by numbers that indicate 
the amount of space needed on each of the disks that will 
contain the multi-volume file. TRACKS or RECORDS 
must be specified. Any multi-volume file load requires a - 
TRACKS or RECORDS keyword whether the file 
previously existed or not. The order of these numbers 
must correspond to the order of the names in the PACK 
parameter. 


LOCATION: The keyword LOCATION must be followed 
by the numbers of the tracks on which the file is to begin 
on each of the disks you use for the file. The order of 

the numbers must correspond to the order of the names 

in the PACK parameter. If you omit the LOCATION 
parameter, the system chooses the beginning track on each 
of the disks. If LOCATION is specified for one disk, it 
must be specified for all disks. If the multi-volume file 
exists, LOCATION must be given and must be identical 
to the LOCATION parameter specified when the file was 
created. 


RETAIN: RETAIN-S must not be specified unless the file 
is online multi-volume. If RETAIN-S is used for online 
multi-volume, it cannot be changed to RETAIN-T unless 
also done online. 
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File Statement Summary 


KEYWORDS INDEXED OR SEQUENTIAL FILES DIRECT FILES 


Maximum 10 disks per file statement, 40 disks per job (number of Single Drive—2 disks 
Number of Disks HIKEYS plus number of packs cannot exceed 40) Two Drives—4 disks 


Location R1 or R2 for offline files No restriction 
Requirements No restriction for online files 


Restrictions At file creation time only: All the disks used for the file 
on Disk @ First disk can also contain programs, procedures, can also contain programs, 
other files. procedures, other files. 
@ Remaining disks must be used only for the one file. 


Operating Single Drive — Disks must be mounted one at a time. All disks must be on-line 
Considerations Two Drives — Disks must be mounted in sequence during processing. 
specified in UNIT statement. es 


Relation to One entry in the UNIT statement can correspond to A One-to-one correspondence is 
more than one disk name in the PACK statement. required between the entries in 
the UNIT statement and the disk 
names in the PACK statement. 


INDEXED, SEQUENTIAL, OR DIRECT FILES 


When processing a file (or a subset of a file) the disk 
names must be in the same sequence as they were at 
file creation time. 


Length must be less than 30 

(01—08 if packed keys). Used only for Indexed Files. For 

. Sequential and Direct files, pressing 
PROG START will also bypass . 


HIKEY responses must corre- 
HIKEY prompt. 


spond one-for-one with the disk 
names in the PACK statement. 


At file creation time: 

@ Number of tracks (or records) must be specified for each disk. 

@ Number in TRACKS (or RECORDS) statement must correspond one-for-one with the 
disk names in the PACK statement. 


During subsequent runs: TRACKS (or RECORDS) statement can be included in the OCL 
sequence. (For greater detail see keyword descriptions of TRACKS/RECORDS.) 


LOCATION @ If specified: 
Addresses must correspond, one-for-one with disk names in PACK statement. 
@ If not specified: 
System will allocate space on each disk. 
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Coding Multi-Volume File Statements 


1. The operator must begin and end each statement with 
an apostrophe. 


2. The system displays information about each volume 
on a separate line. 


3. The system assigns one statement number to the entire 
file statement. 


Changing Multi-Volume File Statements with MODIFY 
Keyword 


When using MODIFY keyword to change a multi-volume 
file statement (other than HIKEY), the entire response to 
the keyword must be re-entered on one line, separated by 
commas, with beginning and ending apostrophes. 


Example 
UNIT Statement is Should be 
041 UNIT — ’F1 UNIT — ‘F1 
—R1 —R1 
—R2 —F2 
— F2’ — R2’ 


To change at MODIFY time 


MODIFY 
041 — ‘'F1,R1,F2,R2’ 
RUN 


INCLUDING DISK SORT SOURCE OR UTILITY 
CONTROL STATEMENTS IN A PROCEDURE 


"The INCLUDE option can be used during MODIFY time 
of a BUILD cycle to include Disk Sort source or utility 
control statements in a procedure. This is useful if the con- 
trol statements are long or complex and the job is run fre- 
quently. A maximum of 25 control statements can be in- 
cluded in each procedure. 


During the BUILD cycle, the INCLUDE option must be 
the last MODIFY option used. After the included state- 
ments are keyed in, the RUN entry then puts the procedure 
and included statements in the source library. 


The CALL cycle will be different if the called procedure 
has included statements. After the OCL statements are 
printed, MODIFY will be prompted to allow changes to 


the OCL statements. After the operator types RUN, the 
system will print INCLUDED STATEMENTS and then 
list the statements. MODIFY will now be prompted 
again, to allow changes to be made to the included state- 
ments. The operator types RUN to run the job. 


For an example of Including Disk Sort Source Statements 
in a procedure see the /BM System/3 Disk Sort Reference 
Manual, SC21-7522. 


An example of including Utility Control statements in a 
procedure is shown in sample job 10 (see Sample Jobs at 
end of this part). 


INCREASING FILE SIZE OF THE RPG PROCEDURE 


The IBM-supplied compile procedure can only compile 
RPG II programs with less than 400 statements. To 
compile larger programs, the file statements must be 
modified to increase their size above 10 tracks (see 
Modify; Changing a Previous OCL Statement in Part |). 
Using the MODIFY option will only increase the file size 
for one compile. The RPG I! procedure wil! not be 
changed in the source library. To change the procedure in 
the source library you must either build a new procedure 
(see BUILD NAME in Part 1), use the Library Maintenance 
Modify function, or use the KSE utility program. 


Maximum Number of Files in SWA 


The scheduler work area (SWA) is used to temporarily save 
file label information while processing a program (see 
Library Maintenance Program for information on creating 
an SWA). The file label information is ten sectors, and it 
can contain a maximum of 40 entries, each one 64 bytes. 


This manual states that a maximum of 40 files (or 40 vol- 
umes of a multivolume file (MVF)) can be specified for 
One program. In some cases, the maximum will be less. 
Generally, one label is required for each file. One F1 label 
represents one FILE statement for disk. For multivolume 
files, there is one F1 label for each PACK. 


Additionally, one F7 label is used for each volume of an 
indexed multivolume file to contain HIKEY information. 


The special allocate function of the SCP might require an 
F1 entry in the SWA even though it is not specified by 

the user. For example, the Disk Sort has an auto-allocate — 
function wherein the system, not the user, locates work 
space for the sort. Also, some of the SCP utility functions, 
such as the WORK-YES option of $COPY (COPYFILE 
intermediate), use the special allocate routines. 
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The following examples might help to determine the num- 
ber of SWA entries required for a run. A direct file requires 
the same number of entries as a sequential file: 


Type of Number of Number of 
Disk File Volumes SWA Entries 
Sequential 1 1 
Sequential (MVF) 3 3 
Indexed (created as | 
single volume) 1 1 
Indexed (created as MVF) 1 2 
Indexed (created as MVF) 3 6 
Special allocate 
$COPY WORK-YES 1 1 
$DSORT (auto-allocate) Up to 4 Up to 4 
SMAINT Up to 4 Up to 4! 


1Not including files specified for the file-to-library 
function. 


For example, if you are copying (using $COPY) a multi- 
volume indexed file on five volumes, 10 entries would be 
required for the input file and 10 entries would be required 
for the output file. In addition, if COPYFILE intermediate 
(WORK-YES) is used, one entry would be required by the 
$COPY program. 


Thus, by summing the requirements for your program, you 
can determine whether you have exceeded the maximum 
allowable number of SWA entries (40). 


PROCESSING LARGE INDEXED DISK FILES 


When additions are made to a large indexed file, the 

amount of time needed to sort the keys of the index at end- 
of-job may become excessive. This sort time can be reduced 
by using a work file. 


The work file is used to merge the added keys into the 
index and must be large enough to contain all of the keys 
added to the file. If the program adds records to more 
than one indexed file, the work file must be large enough 
to contain all the keys added to the file having the greatest 
number of additions. 
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The work file must be named $INDEX44 and should be 
located as close as possible to the index being sorted. To 
compute the number of tracks required for the work file, 
use the following formula: 


256 
number of adds Acasa) 24 = tracks 


After dividing 256 by keylength+3, the remainder should 
be dropped. After the other divisions, round the quotient 
to the next higher whole number. 


If the work file is not large enough to contain all the index 
keys, the keys are sorted in the normal manner without 
using a work file. If possible, the work file should be 


located on a different disk drive than the indexed file’ 


whose keys are being sorted. If this is not possible, the 
work file should be as close as possible to the beginning 
of the file whose keys are being sorted. This minimizes 
the disk seek time. 


The work file can be used with multivolume files. However, 
it cannot be located on a pack that contains one of the 
offline volumes of a multivolume file. The pack containing 
the work file must remain online while running the job. 

The work file must be RETAIN-S. If RETAIN-T or 
RETAIN-P is specified, the system will default to 
RETAIN-S. 


For small indexed files (10 tracks or less) where the sort 
time is negligible, the use of the work file will not improve 
performance and should not be used. 


To use this performance option, no change is needed to 
your source program. Also, programs need not be re- 
compiled to use this option. Only the additional OCL 
FILE statement is needed to use this option. 


ENTERING RPG Il SOURCE STATEMENTS FROM THE 
KEYBOARD AT COMPILE TIME 


The !BM-supplied compile procedure requires that the 

RPG II source statements be in the source library of a disk. 
By using the Keyboard Source Entry Utility (SKSE), source 
statements can be format checked as they are put on disk. 


The source statements can, however, be entered from the 
keyboard at compile time. These statements are read by 
the compiler and checked for format errors. If any errors 
are found they cannot be corrected and the compile will 
not be successful. The compile job must be rerun and all 
source statements keyed in again. 


To key in source statements from the keyboard, the 
IBM-supplied compile procedure RPG is used. This pro- 
cedure does not prompt COMPILE OBJECT, SOURCE, 
or UNIT. 


Inquiry Interrupt 


Certain programs can be interrupted while they are being 
processed. A request for interruption is called an inquiry 
request (made by operation of the inquiry switch on the 
system control! panel). Programs are usually interrupted to 
permit another program to run. Control is then given back 
to the first program. 


The instructions given the compiler at compile time 
determine the inquiry type of a program. 


The three types of programs include: 


1. A program that cannot be interrupted (does not 
recognize an inquiry request). 


2. A program that can be interrupted (does recognize 
an inquiry request). This is a B-type inquiry program. 


3. Aninquiry program that can only be executed when 
an inquiry request. is made. This is an l-type program. 


Usually |-type programs are read in only when a program is 
interrupted. In this case the inquiry program will not 
recognize an inquiry request. However, if an inquiry 
program is loaded in the normal manner (not because of a 
program interrupt), it can only be executed when an inquiry 
request is made. While this program is running, it will not 

. recognize an inquiry request. 


The inquiry interrupt involves these three steps: 


1. When the program recognizes an inquiry request, a 
Roll-Out routine moves the interrupted program 
from main storage to disk. 


2. The program for which the interrupt was requested 
must be loaded normally. The interrupting program 
may be any type. This interrupting program cannot 
be interrupted. 


Si After the interrupting program is executed, the 
interrupted program moves back into main storage 
using a Roll-In routine. The interrupted program 
begins execution at the point of interruption and 
terminates in a normal manner. 


The /BM System/3 Model 6 RPG I! Reference Manual, 
$C21-7517, describes coding necessary to define inquiry 
programs. 


Restrictions During Inquiry 

Inquiry always causes conversational OCL. to be used, even 
if the interrupted program was running using the card OCL. 
The OCL statements cannot be read from cards during 
inquiry. 


lf the interrupted program uses offline, multivolume files 
(RPG 11), the inquiry program must not require files on 
the same removable unit. 


The log device cannot be changed during inquiry. 


CHAINED PROCEDURES 


A finished job usually requires that more than one program 
be run. Several customer programs with utility programs 
between them may be required to complete the finished 
report. This sequence of programs can be put in chained 
procedures. 


By chaining procedures, several benefits can be realized, 
including: 


© Programs are always run in the correct sequence. 


® Operator intervention and, therefore, chance of 
operator error, is decreased. 


@ File space can be saved. Files used to pass data from 
job to job can be scratched after the last program. 


© Files are less likely to be destroyed by running non- 
related programs between programs of a job. 


To chain procedures, the operator first builds a master 
procedure to chain together other procedures. This is 
done by responding to READY with BUILDC. The system 
will then repetitively prompt CALL NAME and UNIT, 
allowing the operator to respond with the name and unit of 
the procedures that are to be chained. When all procedure 
names have been entered, the operator responds to CALL 
NAME or UNIT with the ENTER MINUS (ENTER -) key. 
The system then allows the operator to MODIFY the 
entries. When RUN is entered, the master procedure is put 
in the source library as a permanent entry. . 


Master procedures can call other master procedures up to 
9 levels. The original master procedure called (level 1) can 
call another master procedure (level 2), which can call 
another master procedure (level 3), etc., on up to 9 levels. 
Care must be taken to avoid calling a master procedure 
that was already called earlier in the chain or an endless 
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loop will result. A master procedure can contain only 
CALL and UNIT statements. 


Delayed responses are not allowed ina BUILDC cycle. 
However, the called procedures can contain delayed 
responses. 


To run the chained procedures, the operator initiates a 
CALL cycle, responds to CALL NAME with the name of 
the master procedure, and responds to UNIT with location 
of the procedure. Each procedure is then called by the 
master procedure and run. 


When running chained procedures, the operator is never 
prompted MODIFY to make changes. 


If the operator presses the ENTER—key after responding 
to CALL NAME or UNIT, only the CALL NAME and 
UNIT statements of each chained procedure will! be dis- 
played. All other OCL statements (except those with 
delayed responses) and included control statements are 
not displayed. 


If HALT is specified, the system will not halt until the last 
job of a chain is complete. 


OCL FOR THE IBM 2222 PRINTER 


The IBM 2222 printer provides the MODEL 6 system with 
the ability to print on two forms. Each form has its own 
forms tractor. The left tractor is called PRIMARY and the 
-right tractor is SECONDARY. 


Using the FORMS Statement 


The lines per page setting of the PRIMARY and 
SECONDARY tractors can be different. (For example, 

the PRIMARY tractor could print 25 lines per page, while 
SECONDARY prints the standard 66 lines per page.) 
Separate settings are specified by entering different FORMS 
statements for each tractor during the MODIFY phase. 


Log Device 


The log device is used to print OCL statements and error 
messages and codes. The PRIMARY tractor will be the 
log device at IPL time when the 2222 Printer is used. The 
secondary tractor can be assigned as the logging device by 
entering LOG at either READY or MODIFY time. If the 
secondary tractor is the logging device, logged data begins 
in print position 110. (See READ Y-Entering LOG and 
MODIFY-Entering LOG). 


If the log device is used for normal program output, the 
error messages and codes are not printed. 
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MODIFY — Entering the Keyword FORMS 
System prompts MODIFY 


Enter here if you’ve 
already used a 
MODIFY option in 
the job 





Operator types FORMS 


System prompts FORMS 
DEVICE 


Operator types 


PRIMARY SECONDARY 
System prompts LINES 


Operator types Operator presses 


new lines per PROG START 
page setting (for current lines 
per page) 


Does operator want to 
use another MODIFY 


7 option? —— 


YES NO 


See keyword Operator types RUN 


description (When the keyword FORMS 
of the other is entered in an OCL se- 
MODIFY quence, a system halt oc- 
option curs after RUN in case 


the operator needs to 
change paper in the print- 
er. The system remains 
idle until the operator 
presses PROG START) 


OCL FOR THE !BM 2265-2 DISPLAY 


The IBM 2265-2 display unit can be used as the system log- 
ging device. The logging device displays OCL statements, 
utility control statements, job comments, and error messages 
and codes. The log device can also be used for normal out- 
put from the job being run. Error messages and codes are 
not displayed if the 2265-2 is used for normal job output. 


When the 2265-2 (CRT) is used as the logging device, an ad- 
ditional 1K of core storage is needed for the system, thus 
reducing the core available for the user program. 


The operator can assign either the CRT display or the print- 
er as the logging device. If the operator changes the logging 


device the change remains in effect until either: 


© The operator specifically overrides the change with 
another LOG statement. 


© The next IPL procedure. 


READY — Entering LOG 


System prompts READY 
Operator types LOG 


System prompts 
LOG DEVICE 


Operator types: 


CRT SECONDARY PRIMARY 


Y 


System assigns System assigns 


System assigns 


CRT as logging 
device. 


secondary tractor 
as logging device. 


primary tractor 
as logging device. 


System prompts READY 


Note: The CPU usage meter will continue to run during 
halts (other than end-of-job halt in halt mode) when the 
CRT is used as the logging device or when it is used by the 
customer program. To stop the usage meter, the system 
START/STOP switch should be moved to the STOP position. 
This will blank the CRT display, but the halt will continue 
to be displayed in the halt code indicator lights on the sys- 
tem console. When halt ABCD12345 occurs (end-of-job 

in HALT mode), the CRT is blanked and the usage meter 

is stopped. 


MODIFY — Entering LOG 


System prompts MODIFY 


. Enter here if 
you've already 
used a MODIFY 
option in the job 





Operator types LOG 


System prompts 
LOG DEVICE 


Operator types: 


CRT SECONDARY PRIMARY 
System assigns 
primary tractor 
as logging device. 


System assigns 
secondary tractor 
as logging device. 


System assigns 
CRT as logging 
device 


Does operator want to 
use another MODIFY 
YES <——- option? —————>> NO 


See keyword description Operator types 
of the other MODIFY RUN 
option 
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OCL ERROR MESSAGES 


Message 


‘MESSAGE #00 — NO PROGRAM NAME GIVEN 
MESSAGE #01 — NO UNIT GIVEN 
MESSAGE #02 — INVALID PROGRAM NAME SPECIFIED 
MESSAGE #03 — INVALID UNIT SPECIFIED 


MESSAGE #04 — PROGRAM NOT FOUND ON 
SPECIFIED UNIT 


MESSAGE #05 — NO PROCEDURE NAME GIVEN 


MESSAGE #06 — SOURCE NOT FOUND ON SPECIFIED 
UNIT 


MESSAGE #07 — INVALID PROCEDURE NAME 


MESSAGE #08 — MULTIVOLUME FILE RESPONSES 
NOT IN 1-1 RATIO 


MESSAGE #09 — PROCEDURE NOT FOUND ON 
SPECIFIED UNIT 


MESSAGE #10 — INVALID SWITCH SETTINGS 


MESSAGE #11 — NO SOURCE NAME GIVEN 
MESSAGE #12 — INVALID SOURCE NAME SPECIFIED 
MESSAGE #13 — INVALID DATE SPECIFIED 


MESSAGE #14 — TOO MANY RESPONSES TO A 
MULTIVOLUME FILE KEYWORD 


MESSAGE #15 — NO FILE NAME GIVEN 


MESSAGE #16 — NO PACK GIVEN 
MESSAGE #17 — INVALID FILE NAME SPECIFIED 
MESSAGE #18 — INVALID LABEL SPECIFIED 


MESSAGE #19 — INVALID PACK SPECIFIED 
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Explanation 


Response to LOAD NAME was blank. 
Response to UNIT was blank. 
Response to LOAD NAME was invalid. 
Response to UNIT was invalid. 


The program indicated by your response to LOAD NAME 
was not found in the object library of the unit specified. 


Response to CALL NAME or BUILD NAME was blank. 


The source module specified by your response to SOURCE 
was not found in the source library of the unit specified. 


Response to BUILD NAME or CALL NAME was invalid. 


The number of responses to file keywords PACK, HIKEY, 
LOCATION, TRACKS, or RECORDS were not equal. 


Procedure specified by response to CALL NAME was not 
found in source library of the unit specified. 


Response to SWITCH was other than eight positions of X, 
1, or 0. 


Response to SOURCE was blank. 
Response to SOURCE was invalid. 
Response to DATE in file keywords was invalid. 


Only ten volumes are allowed in each multivolume file. 


Procedure contains file keywords but no FILE NAME 
response. 


Procedure contains file keywords but no PACK response. 
Response to FILE NAME was invalid. 
Response to LABEL was invalid. 


Response to PACK was invalid. 


Message Explanation 


MESSAGE #20 — INVALID RETAIN DESIGNATION 
SPECIFIED 


MESSAGE #21 — INVALID TRACKS SPECIFIED 


MESSAGE #22 — MAXIMUM FILE STATEMENTS 
ENTERED 


MESSAGE #23 — BOTH TRACKS AND RECORDS 
SPECIFIED 


MESSAGE #24 — INVALID RECORDS SPECIFIED 
MESSAGE #25 — INVALID LOCATION SPECIFIED 


MESSAGE #26 — DEVICE NOT SUPPORTED 


MESSAGE #27 — INVALID DEVICE 

MESSAGE #28 — INVALID NUMBER OF LINES 

MESSAGE #29 — INVALID REQUEST 

MESSAGE #30 — INVALID STATEMENT NUMBER 

MESSAGE #31 — TOO MANY UTILITY CONTROL 
STATEMENTS IN PROCEDURE—JOB 
CANCELED 


MESSAGE #32 — RUN OUT OF SPACE IN THE 
SCHEDULER WORK AREA 


MESSAGE #33 — RESPONSE REQUIRED—DELAYED 
RESPONSE IN CALLED PROCEDURE 


MESSAGE #34 — TOO MANY MULTIVOLUME FILE 
UNITS SPECIFIED 


MESSAGE #35 — DELAYED RESPONSE (?) NOT 
ALLOWED 


MESSAGE #36 — JOB CANCELED 


MESSAGE #37 — MULTIVOLUME FILE NOT VALID 
THIS STATEMENT 


MESSAGE #38 — ENTER MINUS (-) NOT ALLOWED 


Response to RETAIN other than P, T, S, or A. 


No more than 15 FILE statements can be specified in a job. 


Procedure contains responses to both TRACKS and 
RECORDS. 


Response to LOCATION must be 8 through 405. 


CRT, data recorder, or 3741 was specified but is not on 
the system. 


Response to DEVICE, PUNCH, or READER invalid. 
Response to LINES not between 12 and 112. 
Response to MODIFY was invalid. 


Invalid statement number entered as response to modify. 


Number of units specified exceeds number of packs 
specified. 


/* was entered or job was canceled because of errors. 


Multiple responses not allowed for this keyword. 


The ENTER-— key is only allowed for certain keywords in 
the BUILD cycle. 
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Message Explanation 


MESSAGE #39 — ERRORS IN PROCEDURE—JOB 
CANCELED 


MESSAGE #40 — ERRORS IN OCL STATEMENT 
MESSAGE #41 — ERRORS IN RESPONSE 


MESSAGE #42 — DUPLICATE PROCEDURE NAME 
IN LIBRARY 


MESSAGE #43 — DUPLICATE PROCEDURE DELETED 

MESSAGE #44 — INVALID KEYWORD 

MESSAGE #45 — TOO MANY UTILITY CONTROL 
STATEMENTS ENTERED 


MESSAGE #46-— PERMANENT DISK ERROR 


MESSAGE #47 — RUN OUT OF SPACE IN PROCEDURE 
LIBRARY—JOB CANCELED 


MESSAGE #48 — INVALID SYSTEM DATE SPECIFIED 

MESSAGE #49 — DUPLICATE KEYWORD 

MESSAGE #50 — RESPONSE REQUIRED 

MESSAGE #51 — TOO MANY PACKS, HIKEYS, OR 
BOTH SPECIFIED 


MESSAGE #52 — DUPLICATE MULTIVOLUME FILE 
UNIT SPECIFIED 


MESSAGE #53 — INVALID RESPONSE DURING 
INQUIRY 


MESSAGE #54 — INVALID HIKEY SPECIFIED 


MESSAGE #55 — INVALID HIKEY LENGTH SPECIFIED 
MESSAGE #56 — HIKEYS OUT OF SEQUENCE 


MESSAGE #57 — REQUIRED KEYWORD DELETED 


CO-RESIDENT SYSTEMS 


IBM System/3 Model 6 users who have co-resident systems 
(both disk system management and System/3 BASIC) can 
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Response to BUILD NAME is already in source library of 
unit specified. 


New procedure being entered will overlay old procedure 
with same name. 


Keyword found in procedure is invalid, or response to 
READY is invalid. 


Only 25 utility control statements may be entered. 


A procedure contains a duplicate keyword. 


You must respond to this keyword; PROG START as the 
only response is not allowed. 


The total number of PACK and HIKEY keywords cannot . 
exceed 52. 


Cannot change logging device or change to card OCL. 


Response (number) to HIKEY exceeds response (number) 
to KEY LENGTH 
Response to KEY LENGTH is greater than 29, or is 00. 


Responsesto HIKEY must be in ascending sequence. 


Job canceled. 


transfer control from disk system management to System/3 


BASIC by responding to READY with ENTER BASIC. 


This section presents a typical sequence of jobs: 


° 


Initialize a disk. 

Compile an RPG I! source program. 

Run the compiled program. 

Copy a file from one disk to another. 

Build a procedure to run a multi-file job. 
Call and modify the procedure built in job 5. 
Update a multi-volume master file. 


Create a multi-volume indexed file. 


Maintain a multi-volume indexed file with packed keys. 


Include utility control statements in a procedure. 


Chain procedures. 


Sample Jobs 


Each sample job is organized into three sections: 
iy An introductory summary explaining the job. 


2. The OCL statements (and—where applicable—the 
utility control statements) for the job. 


3 Explanatory notes on individual statements in the 
job. 


The examples shown are actual computer printouts. End- 
of-statement keys used are shown in parenthesis to indicate 
actual operator response. These are shown for example only 
and will not be printed on normal OCL printouts. 


Any response without end-of-statement key indicated is 
printed by the system without operator intervention. 


in the following examples, the symbol P/S means 
program Start. 
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SAMPLE JOB 1. INITIALIZE DISK 


We're going to use the Disk Initialization Program (located on the fixed disk on drive one) to initialize the removable disk on 
drive one. We want to: 


© Initialize the entire disk pack. 

© Do surface analysis only once. 

The name of the new disk will be 12345. 

Here are the OCL and utility control statements for the job. 


REATIY— | LOA  (P/S) 


YE IE HE IE HE IE HE HE IE HE DE IE IE HE IE JE HE IE HE HE SE SE IE IE HE IE HG HE HEE DE IE I JE HE IE JE HE 9G HE HE JE IE 9G HE IE JE JE IE JE IE SE HE 9G FE IE IE DE IE HE IE IE HE IE 
O10 LOAT NAME — SINIT  (P/S) 
O11 UNIT— ri. (ENTER-) 


HEHEHE HE EG 3G HE HE IE FE HE HG HE NE DE IE HE HE 9G 9 HE BE HE 9G HE AE IE PE DE IE HE 9G NE 9G IE IE FE IE IE IG IE IE IE IE HE IG HE ME IE JE IE HE DE HE IE IE IE HE IE IE AE IG 
MOUTFY 


ALIN CF SS): 

ENTER ®// * CONTROL STATEMENT 
4/7 UEN UNIT-Ri» TYPE-PRIMARY — (P/S) 

ENTER ’//7 * CONTROL STATEMENT 
4/7 MOL FACK-12545 — (P/S) 

ENTER *// * CONTROL STATEMENT 
ff EINY — (P/S) 


Explanation 
© 010 LOAD NAME — $INIT 
SINIT is the system name for the Disk Initialization Program. 
© 011 UNIT — F1 The Disk Initialization Program is located on the fixed disk on drive one. Pressing ENTER~— 
instead of PROG START to end response causes DATE, SWITCH, and FILE keywords to 
be bypassed. 
o // UIN UNIT — R1, TYPE-PRIMARY 
1. Tells the system to initialize the removable disk on drive one. 
2. Because no other parameters are entered in the UIN statement, the program will: 
© Initialize the entire pack. 
© Read and verify the test data on the pack one time. 
© // VOL PACK— — $INIT will enter the disk name 12345 in the VTOC. Whenever a file from this disk is used 
12345 in a job, the operator must type 12345 when the system prompts PACK. 
© //END 
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SAMPLE JOB 2. COMPILE AN RPG I! SOURCE PROGRAM. 


We're going to use the IBM-supplied procedure RPGB (located in the source library on the fixed disk on drive one) to 
compile a source program INVUPD (an inventory update) located on R1. The RPG II Compiler (the program to compile 
RPG 1! source programs) is also located on R1. We want to put the compiled program in the object library on R1. Here are 
the OCL statements for the job. 


Explanation 
@ 000 CALL NAME — RPGB 

Tells the system you want to use the IBM-supplied Compile Procedure (RPGB). 
@ 010 LOAD NAME — $RPG 


Tells the system you want to use the RPG I! Compiler (the program to compile RPG II 
source programs). 
@® 011 UNIT — R1 
The RPG Iti Compiler is located on R1. 


@ 020 COMPILE OBJECT - — Fi 
The object program will be put in the object library of the disk on F1. 


© 021SOURCE — INVUPD . | 
The SOURCE statement in the RPGB procedure requires a delayed response. When the 


system reaches the SOURCE statement in the display sequence, it prompts SOURCE and 
waits for the operator’s response. 


@ 022 UNIT — R1 
The response tells the system that the program to be compiled (INVUPD) is located on R1. 


© 020 MODIFY — RI 
1. System prompts MODIFY. 


2. Operator types 020, telling system he wants to change that statement. (He does not 
want the system to put the compiled program on F1.) 


3. System tabs to position 37 and waits for response. 


4. Operator types new response — R1. The system will put the compiled program on R1. 


REALIY- CALL (P/S) 
000 CALL NAME- EGE (P/S) 
Oo1 UNIT- Fi (P/S) 
HMMM HIM MMH MEH RRR KK KRHKMEN EME MK ERKEHH EK RE REKEHAN 
O10 LOAD | NAME-SREG 

Oil ; UNIT-R1 

020 COMPILE ORJECT-FA 

O?1 SOURCE- THVUET -(P/S) 
022 UNIT-R1 

030 FILE NAME-SWORK 

O31 UNIT-F1 

032 PACK-FLFALF 1. 

033 TRACKS-20 

O34 RETAIN-S 

040 FILE. NAME-SSOURCE . 
O41 UNIT-F1 

042 ° PACK-FIFIF1 

043 TRACKS-20 

044 RETAIN-S 

HEHEHE HEE EEE EEE EEE KKK RRR KEKE RRR REE MRR ERK HKER 
MODIFY 

020 = (P/S) i (P/S) 


RUN (P/S) 
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SAMPLE JOB 3. PROCESS CUSTOMER PROGRAM “INVUPD” 


We're going to run the customer program INVUPD, compiled in SAMPLE JOB 2 and located on the removable disk on 
drive one. The job uses one file, INV, located on R2. The name of the disk which contains the file INV is 123456. Here 
are the OCL statements for the job. , . 


REATIY— Lact (P/S) 
He HE YE He IE Te IG HG Ie HE TE HE HG AE FE IE FE IE I IE IE I AE FE FE HE SE HE BE IE AG HE FE HE IG HE HE HE HG HE IE SE IG IG FE TE HE HE HG HE HE HE HE IE DG HE 36 HE 26 HE E96 HE HE 
O10 LoAtL NAME -~ INVURCE (P/S) 
OL i WATT Ki (P/S) 
O20 TATE (12/08/70) - (P/S) 

030 SWITCH (00000000) ~ (P/S) 

O40 FILE . NAME {Ns (P/S) 
O41 UNTT- fe? =~ (P/S) 

O42 PACK = Los4%ie (P/S) 
O43 LABEL - (ENTER—) 

O50 FILE NAME - (P/S) 


He 36 5 Ie HE HG IG FE IG FE FE FE IG HE IE IG FE IG FE I HG IG SE FG HE FG HE HG HE BE HE He HE HE HG SE IE IG HE he HG HG Fe HE HE GE HG HE He IE HE HE SE 9 HE EE HE HE HE 
MOUIFY 


FLIN  (P/S) 


Explanation 

@ 020 DATE — (12/08/70) 
We'll use the current system date for the job. 

® 030 SWITCH — (00000000) — (P/S) 
The program doesn’t use external indicators so the operator doesn’t care about the switch 
setting and responds by pressing the PROG START key. 

@ 043 LABEL — Press the ENTER— key 
Responding to LABEL by pressing the ENTER— key tells the system to bypass the rest of 
the file keywords and prompt FILE NAME. 

@® 050 FILE NAME — (P/S) 


Responding to FILE NAME by pressing PROG START causes the system to bypass the 
rest of the file keywords and prompt MODIFY. 
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SAMPLE JOB 4. COPY FILE DISK TO DISK 


We're going to copy an employee master file from R1 to R2. The second file will serve as a back-up in case the original file 
is damaged in some way, such as track becoming defective or a portion of the file being overlaid. When the master file was 
created the programmer: 


1. Responded to FILE NAME with EMASTFIL. 

2: Responded to PACK with VOLO6. 

3. Responded to LABEL with EMPMAST. 

4. Responded to TRACKS with 15. 

These responses caused the system to put the name EMPMAST in the VTOC on VOLO6. 


Here are the OCL and utility contro! statements we will use to copy the master file from R1 to R2. | 


READY att = (P/S) 

HE HE HE HE HE HE DE SE SHE HE TE HE HG 9 IE FE HE FE IE AG HE IG HE I HE FE AE FE IG AG FE HE HE IE HE HE IE IE IE IE IE IE SE FE IE IE HE HE HE HE SE HE IE FE NE SE TE IE HE IE 3 IE HE 
O10 LOAt NAME SIC (P/S) 

O14 7 UNTT- ft (P/S) 

O26 TATE (12/08/70) - (P/S) 

O30 SWITCH (66600000) - (P/S) 

O40 FILE — HAME- CORY EN (P/S) 

O44 UNTT- RL (P/S). 

O42 PAK CHO (P/S) 

O44 LABEL — EMF MAST (ENTER-) 
O50 FILE NAME COR YC! (P/S) 
O84 ‘UNI T- fez? (P/S) 

O82 | FAK VOL? (P/S) 
OSE LABEL EMPMagsT 2 — (P/S) 
O54 RECORDS (P/S) 

OSS JTRACKS- 145 (P/S) 

O56 LOCATION- (P/S) 

Oo -- RETATH-  (ENTER—) 

O60 FILE NAME — 

Me He He He HE IE He HG FE IE HE HE HIE FE HE HE HE HE IE HE HG HE HE FE HE FE HE FE HE HE ME HEM FE IE HE He HE HE HE HE HE IE FE SE NE MG FE IG AE A IE SEH FE IE FE HE HE HE HE 9G HE 
MOF y 


ARUN (P/S) 

ENTER °// * CONTROL STATEMENT 
f/ COPYFTILE QUTELIT-OISN  (P/S) 

ENTER °// * CONTROL STATEMENT 
// END (P/S) 
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Explanation 


010 LOAD NAME 


011 UNIT 


020 DATE 


030 SWITCH 


040 FILE NAME 


043 LABEL 


050 FILE NAME 


053 LABEL 


055 TRACKS 


057 RETAIN 


COPY FILE OUTPUT 


— $COPY 


$COPY is the system name for the Copy/Dump Program. 


F1 
The Copy/Dump Program is on F1. 


(xx/xx/xx) 
We will use the current system date for the job. 


(00000000) 
The program does not use external indicators, so operator does not care about the 
switch setting and responds by pressing PROG START. 


COPYIN 
COPYIN is the predefined file name you must use for the input file whenever you use 
Copy/Dump Program. 


EMPMAST 

EMPMAST is the VTOC file name for the COPYIN file. You must supply this name so 
the system knows which file to use for COPYIN. Pressing the ENTER— key causes the. 
system to bypass the rest of the file keywords and prompt FILE NAME. 


COPYO 
COPYO is the predefined file name you must use for the output file whenever you use 
the Copy/Dump Program. 


EMPMAST2 
The system enters EMPMAST2 in the VTOC on VOLO7. EMPMAST2 is the name by 
which the system will identify the back-up file. 


15 

Because we are creating a new file, we must respond to one of the space keywords 
(TRACKS and RECORDS). We specify 15 tracks because that is what we specified 
for the original file. 


P 

The back-up file is to be permanent to protect it against inadvertent overlaying. 
Pressing the ENTER— key causes the system to bypass the rest of the file keywords 
and prompt FILE NAME. 


DISK 
The COPYFILE statement tells the program to copy the designated file from R1 to R2. 


SAMPLE JOB 5. MULTI-FILE BUILD 


Each day the customer runs a daily transaction job which creates a daily transaction file. Each day’s file has a different 
name and date. We are going to build a procedure to use these daily files to create a weekly transaction file (WKLYTR). 


The weekly transaction program is located in the object library of fixed disk 1. 


RE ALY 


ued 


Elda Ui 


Pep bb on 


Ut T- 


SLPTLG  (P/S) 


ibe (P/S) 
Ros (P/S) 


SAME Ge EACH HEHE GE AE HE HE AE AE HE HE A IE HE HE A HE HE EH HEH HE HE IE EH HE HE HI HE EE a GE 


Gl 








CAL 


GATE 
oh TCH 
PP Ile 


FILE 


Sr eae Pe 
UGG FILE 





084 


FILE 


“FILE 


nariE~ 
Uri T~ 


me eo % 
Std siuthsisia 
wt Me et 


NAHE 
Wk T 
Bike 

Lee LL 

RECORDS - 

TRACKS 


LOCATION 





RETAIN 


HATE 


NAME 





LGCATION~ 
RETALN~ 


TATE 


NAME 
Unt T-- 
FAK - 
PRED 
RE CHOI TS 
TRACK S- 
LOCA T LGN 
Ri TAT Ne 
ATE. 
NAME— 
UNIT— 
FACK— 
LABEL — 
RECORDIS— 
TRACKS— 
LOCATION- 
RETAIN-—- 
DATE- 
NAME— 
UNIT— 
PACK- 
LABEL— 
RECORDS— 


WET RL 
ea (P/S) 
(P/s) 


Pop ek eb at Qe tyes 
WDA AAS 


rian Tre 
EL (P/s) 
PACK OE 
(P/S) 

(P/s) 

(P/S) 

(P/S) 


(P/S) 


(P/S) 
PRT 
ii (P/S) 
Peli uatd 
(P/S) 

(P/S) 

(P/S) 

(P/S) 

(P/S) 

‘? (P/S) 
Wk CiT hs 
Fi (P/s) 
PACK OE 
(P/S) 

(P/S) 
(P/S) 
(P/S) 
(P/S) 
THUTE 


Fi CP/S) 


FACKOS CF/S) 


(P/S) 
(P/S) 


(P/S) 

(P/S) 

(P/s) 

 — (P/S) 
FRITR 
Fi (P/S) 
FACKOS 
(P/S) 

(P/S) 


MOMMY S FUE (P/s) 


TUESDAYS FLL (P/S) 


WED Seyi FL  (P/S) 


THURSDAYS FILE  (P/S) 


FRIDAYS FILE (P/S) 
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oss 
086 
O87 
O88 
O90 FILE 
OFl 
O92 
OPS 
094 


892 


100 FILE 


TRACKS— (P/s) 
LOCATION— (P/s) 
RETAIN— (P/s) 
UATE ?  (P/S) 
NAME-— WKLY TR (P/S) 
UNIT— Fei. (P/S) 
FACK- FACKO4 — (P/S) 
LABREL— (P/s) 
RECORIS— 300 (P/S) 
LOCATION- (P/S) 
RETAIN EF (ENTER—) 
NAME~ (P/S) 


MHREERHEHEMHMKRKEREHKNMKHHHKKRKHKKKRKKEKKHKKHMKKEKKRHKREKHKKKKKEKKHKERKRKKE 


MODIFY 


RUN (P/S) 


Explanation 


© 000 BUILD NAME 
© 001 UNIT 
© 020 DATE 


© 030 SWITCH 
(00000000) 


@ 040 FILE NAME 


© 048 DATE 
© 090 FILE NAME 
© 094 RECORDS 


© 096 RETAIN 


2 100 FILE NAME 


© RUN 
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WTR 
The procedure name in the source library is WTR. 


R2 
The procedure is located on unit R2. 


(P/S) 
The date statement is not part of the procedure. 


11111XXX (P/S) 
The first five external indicators are used to tell the program which input files are to be 
used (Monday — Friday). 


MONTR MONDAYS FILE 
The file name for each day is different. The comment (MONDAYS FILE) will become 
part of the procedure. 


? (P/S) 
The date each file was created is supplied at CALL time, when the job is run. 


WKLYTR (P/S) 
The output file is called WKLYTR and put on PACK04 on unit R1. 


500 (P/S) 
Our output file contains up to 500 records. 


P (ENTER—) 
We want to make this a permanent file. The ENTER— key caused DATE to be skipped and 
FILE NAME prompted. 


(P/S) 
We are finished with file statements, prompt MODIFY. 


Put the procedure in the source library. 


SAMPLE JOB 6. MULTI-FILE CALL 


We are going to run the procedure we built in sample job.5. However, this week Thursday was a holiday so there are only 
four input files. We can still use the same procedure if we delete an input file at MODIFY time. 
READY — (rit.  (P/S) 
O60 CALL NAariE~ Wik (P/s) ; 
001 UNIT- Fi (P/s) 
KKH KKK KKH KH KKK KKK KH KH KKK KU H KEKE KKH KEK AEH HMA KKK KEM HHK EMR HK 
O10 LOAD HAME-WRYRUH 
. O11 UMIT-F iL 
O20 SWITCH mLLLLLKAK 
0350 FILE NANE-RONTR 
O31 — UND T~-F i 
O32 FACK-PACKOS 
OG DATE~ & £8474 (P/S) 
O40- FILE MARME-TUE TE 
O41 UN TTF a 
O42 FACK-FACK OS 
U4 TATE- 4/4/71 (PIS) 
050 FILE NANME-WEDTI 
OF WATT -F iL 
oa FACK-FACKOS 
O55 DATE as? 7 i (P/S) 
Oo0 FILE HAME-THUTR 
OGL UNIT~F dL 
062 PACK-FACKOS 
O63 DATE- &// 71 (P/S) 
O70 FILE NAME-FRITKE 
O71 UND T-F A 
O72 FACK-FPACKOS 
O73 DATE- 4/977). “(P/S) 
O80 FILE MARE-WKL Y TR 
Ce UME T-RA 
Oe FACK-FPACKO 4 
Oh RECGRIS~Soo 
03S 44 RETATLiN~F 
WK HEH IE IE TE TE HE HE HE FE IE IE IE HE HH HE WIE HG HE EE HE HI HH HE TE EH HE ICE eH EE EE HE 
MEDLEY 


Od (P/S) LALOLKXKX  (P/S) 
OG0% > (P/S) 
a THURS DATS FILE WOT USED BECAUSE OF HOLIDAY, po kuin THAT nat (P/S) 
Hui © (P/S)> 
Explanation 
© 033DATE — 4/5/71 
_@ 043 DATE = 4/6/71 
‘@ 053 DATE — 4/7/71 
© 063 DATE — 4/8/71 


@ 073 DATE — 4/9/71 
We must supply the date for each day’s input file because we gave a delayed response (?) at 
BUILD time. Thursday’s date is entered even though we will delete the file later. A date 
should be entered to continue the cycle. 


@ MODIFY 020 — We set off switch four to indicate Thursday’s file is missing. 


@® MODIFY 060 — We delete the entire file for Thursday and enter a comment to explain why. 


. 


@ RUN — Start the job. 
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SAMPLE JOB 7. UPDATE MULTI-VOLUME MASTER FILE 


Every Monday the XYZ Novelty Company prepares customer invoices, updates their customer master file, and updates 
their inventory file. Because the company has a huge customer file they’ve had to put the file on two disks: customer 
names beginning with A-L on one disk and the remaining customer names on a second disk. When he created this 
multi-volume master file, XYZ’s programmer assigned the following identifying information: 


1. A-L customer names: 
FILE NAME — CMASTER 
PACK — VOLO1 


2. M-Z customer names: | 
FILE NAME — CMASTER 
PACK — VOLO2 


Because the company often needs information on individual customers, the programmer designed the customer master file 
as a direct file. The program to update the customer master file is CMUPDA. Here are the OCL statements for the job. 


RE AY - Lat  (P/S) 
Me GAG 96 HE aE IG EG ee Ge IG PE HE AG eG SE HE ME BE PE tO AE FE IE FE BE 6 FE FE AE AG E96 HE AE FH GA HE 96 6 OE 
O10 Laan NAME ~ CHUTES  (P/S) 
O14 UNTT- 1 (P/S) 
O20 DATE (12/08/70) ~ (P/S) 
O40 SUTTCH (00000000) - (P/s) 
o40 FILE NANME- CMASTER  (P/S) 
O4 i UNE T- *E 4 (P/S) 
~ Fel’ (P/S). 
O42 PACK *UCLLO4  (P/S) 
~ VOLO (ENTER—) 
O50 FILE NAME- (P/S) . 
He HE HE TE HE He HE IE HE I HE HE I TE SEH IE IE IE TE TEI The HE HE IG HG HE BE AE AG i A a HE I TE TE ie HE FE aE EE IE IE 
MOTE Y 


FUN (P/S) 


Explanation 

@ 041 UNIT — ‘Fi 
R1’ 
The single quotation marks tell the system the file CMASTER is a multi-volume file. Fi, R1 
tells the system the file is split between the fixed and removable disks on drive one. 

@ 042 PACK — ‘VOLO1 
VOLO2’ 
The single quotation marks tell the system the file is on more than one disk pack. VOLO1, ~ 
VOLO2 tells the system the name of the disk packs containing the file. Pressing the 
ENTER-— key causes the system to bypass the rest of the file keywords and prompt 
FILE NAME. 

e@ 050 FILE NAME — Pressing the PROG START key causes the system to bypass all the file keywords and 
prompt MODIFY. 
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SAMPLE JOB 8. CREATE A MULTI-VOLUME INDEXED FILE 


We are creating an inventory file. The file is very large and requires five packs. It is an indexed file with a 15 position 
keyfield; the keyfield consists of part number and warehouse location. The file is divided among the five volumes as follows: 


Volume 101 
102 
103 
104 
105 


Keyfields 000-000-000W1B1 
175-200-233W1B3 
380-456-287W7B3 
629-384-301W7B6 


949-476-836W4F8 


to 
to 
to 
to 
to 


175-200-233W1B2 
380-456-280W3R6 
629-384-300W3F6 
949-475-849W8F8 
999-999-999W9F9 


The processing starts with 101 on unit R1 and 102 on unit R2. After processing !01, the program processes 102 allowing 
the operator to remove 101 and mount 103 on unit R1. 


Likewise, 104 replaces 102 and 105 replaces 103. 


(P/S) 
(P/S) 
(P/S) 
(P/S) 

(P/S) 


READY— LOA (P/S) 
MH KREEKKEKKEKKREHKKKKKHKKRKHKKHKKEKEKREREKKREKREKERKREHKHKRKKKKREKEREREE HHERER 
o1o0 LOAD NAME CRTINY — (P/s) 
O11 UNIT- Fi (P/S) 
020 DATE (12/31/70) - (P/s) 
O30 SWITCH (00000000) - (P/S) 
O40 FILE ~ NAME-— INYMSTR  (ENTER—) 
KEY LENGTH- 155 -(P/S) 
O48 HIKEY- PL75~200-233W1 2 
O48 HIREY— S80-456-2BOWSRS 
O4C HIKEY- 529-3 S94-—AQOWSF 
O4n HIKEY- GAG AFR - BAGO E 
O4E HIKEY- PPP 9FO—-PPPAGE FS ° 
O41 UNIT- rR (P/S) 
~ 2" (P/S) 
042 FACK- FUL LOL  (P/S) 
= VOL LO2 (P/S) 
~ VOLO  (P/s) 
_ VOL TO4  (P/Ss) 
- VOL LOS"  (P/S) 
043 LABEL- (P/s) 
044 RECORIS— (P/s) 
O45 TRACKS— 100 (P/S) 
- 193 (P/s) 
= 150 (P/S) 
~ 193 (P/S) 
_ BO" (P/S) 
046: LOCATION- ¥<37 (P/S) 
~ & (P/S) 
= 49 (P/S) 
_ ® (P/S) 
_ @*  (P/S) 
O47 RETAIN- - (ENTER-) 
050 FILE ‘NAME (P/S) 


MONTE Y 


LIN (P/S) 
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Explanation 
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KEY LENGTH: 


045 TRACKS 
046 LOCATION 


All characters except commas are allowed as part of the HIKEY. If apostrophes are used as 
part of the key, two apostrophes must be entered for each one in the key. The number of 
characters entered for HIKEYs must equal KEY LENGTH. 


No statement number js assigned KEY LENGTH. This keyword cannot be changed at 
MODIFY time. 


The file need not occupy the entire volume if the number of tracks and the starting 
location are given. You must be sure these areas are available because the system cannot 
check offline packs. 


SAMPLE JOB 9. MAINTAIN A MULTI-VOLUME INDEXED FILE WITH PACKED KEYS 


We are maintaining a multi-volume indexed file. The file occupies four volumes. The keyfield is 15 characters long in 
packed format. The keyfield takes eight bytes in the record. The file is divided as follows: 


Volume P01 Keyfields 000 000 000 000 000 through 000 025 000 000 000 
P02 000 025 000 000 001 through 000 050 000 000 000 
P03 . 000 050 000 000 001 through 000 075 000 000 000 
P04 000 075 000 000 001 through 000 100 000 000 000 


The OCL required to use this file is as follows: 


MEATY ~ Len: (P/S) 


OLO Loan NAME - ray EGL,  (P/S) 
Ob UNIT Fa (P/S) 
O20 TATE COP /O9/ 712 0 (P/S) 
O30 SWITCH £600000606) ~~ (P/S) | 
O40 FILE NAME Perce. (ENTER-) 
KEY . LENGTH Odel (P/S) 

OA ey HIKREY~ OOOO RS OOOOGGG00  (P/S) 
O4k MIRE Y= OOOOSOOOOOOOOO9 — (P/S) 
O4C HIRE Y-- OOOO FA SOOOOOGOOD — (P/S) 
Oat HIKEY= DOO LOOOOOOOOG00* — (P/S) 
O41 UAT T- *Pch (P/S) 

s Fixe” (P/S) 
O42 PALK FP UCLPOL — (P/S) 

= VOLE (P/S) 

VELEOS  (P/S) 

vo VOLFO4 ?  (P/S) 
O45 LABEL ACCONT (ENTER—) 
O00 Pie NAME (P/S) 
Me ME OE OE BE Me AE DE 9G DE BE DE 9G BE NE aE EME BE AE BE DE FE 96 OG OEE FE DE SE DE IE BE HE DE BE IE DEE OG EOE OE DE SE OE IE EE OE HE DE IE DE IE BE DE DE OE 9 EE 9E 
MOLTE Y 


Felt (P/S) 
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SAMPLE JOB 10. INCLUDE UTILITY CONTROL STATEMENTS IN A PROCEDURE 


Sample job 1 showed an OCL LOAD cycle for initializing the removable disk on drive one. This sample job shows how to 
do the same job using BUILD and CALL cycles and including the Utility Control Statements in the procedure. 


REALY- BUILD (P/s) 

OOO BUILE NAME— INITRI (P/s) 

O01 UNIT— Fi (P/s) | 
HHREHHHEHHEHRHHERHRRHREKEHHRREREHKHERKERHEKRHERBRHRERRHEKEKKEHHRBRRBRKREHEHRKEHERE 
O10 LOAD NAME— SINIT (P/S) 

O14 UNIT— Fi (P/s) 

020 DATE = (P/s) 

O30 SWITCH (O0000000) - (P/s) 

040 FILE NAME— (P/s) 


HRHEKKKHEHRKREERHRHEREHHEHHENE KHER ERKEKKEKRKEKKERERRHKH KERR KEKRKKRERKHERE 
MOULFY 


TNCLUDE (P/s) 

MMH HIE BH HM HE EE EE HEE 3G He EEG HEE SG SE HE GD HE IE DE DE SE GE 9G IE HE 9G 9G 96 9G FE EE 9G FE 
ENTER UTILITY CONTROL STATEMENTS 

Ov 


ff WIN UNIT TR TYPE-FR MARY (P/S) 


On 
ff MOL: PACK=1L23455  (P/s) 
O2 


#7 KENY (P/S) 
O3 


RUN (P/S) 


YEH IE HEHE FE IE HE IE HEI HE IE IE HE HE IE IE HEHE ESE IE HEHE HE HE HE HE HE HE I HEE HEE HE HE HE GHG HE EE HG GH GE HE HE FE HE HE HE HE HE HE 
MODIFY 

READY— CALL. (P/S) 

000 CALL NAME— INITRYI (P/S) 

O01 UNTT— Fi. (P/s) 

FEI HM EI EI EM ER RIK IEE IE HE IEE EK HE HE 
O10 LOAD NAME-SINTT 

OL. UNIT-F A 

DEM HEHE IE HEM HE IE BEDE HE HG HE HE IE HE ME JE I IE BE A HE DE JE EE 9G 9G 96 9G HE IE HE AE 9 BE HE IE HE IE HE IE DE IE IE IE HE IG HE IE IE IE 9G 9G HE IE HEE HE IE 2G 
MOUIFY 


KLIN (P/S) 

JE MG HE NG HE FE HE JE SE HE IE BE JE IE IE IE NE IE AE AG JE 98 JE PE IE 6 9G HE AE YE OE BE DG DE IE HE AE HE DE IE IE IE HE IE IE IE JE IE HE IE IE HE IE NE IE IE ENE EE EE EI 
CNCLUYET STATEMENTS 

OO // UIN UNTT-Rie TYPE-PRIMARY 

Ol // VOL PACK-12345 

O2 // END ; 

OIE IE FE IE IG IE IE IE HE IE FE 9G HE IE IE IE IE IE IE IE HG HE NE IE BE IE HE 9G HE HE HE IE HE IE HE 9G 9G 9G HE IE DE DEG HE NE IE FE HE NE IE HE IG HE 96 HG IE HE HE HE HE EE HE 
MOUTFY 


LIN (P/S) 
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SAMPLE JOB 11. CHAIN PROCEDURES 


We're going to use the BUILDC cycle to chain two procedures created with the BUILD cycle. First, we use the BUILD 
cycle to build procedures to use the Conversational Utilities (SKSE and $KDE). 


After the chained procedure is built, the CALL cycle is used to run the chained procedures. 


READY- BUILD (P/S) 

000 BUILD NAME-— KSE (P/S) 

OO1 UNIT— Fi. (P/S) 

HEH HE HE IE HE HE HEHE HE HE HE HE HE HE IEE HE HI HH KKH RMB KK MEME KKK KR RKRKR RHR KKK 
010° LOAD NAME-— $KSE_ (P/S) 

O11 UNIT— F141 (P/S) 

020 DATE - (P/S) 

030 SWITCH (00000000) - (P/S) 

040 FILE NAME- (P/S) 

HEHE HE HEE IE HE IE HE IE HE HE HE HE HE HE HE IE HE HE HK HE IE IE HE IE IE HE HE HE HE HE HE HE EE EE IEE IE HERE HK 
MODIFY 

RUN (P/S) 

REALY- BUTI (P/S) 

000 BUILTIN NAME ~ KE: (P/S) 

ool UNIT Fi (P/S) 

HEH HH HH HH HH HEH HEHEHE FE FH HEHE HIE HE EE IG EEE DE 9G FE JE DE 9G 9G 36 E96 EE EE 9 JE EE 96 0G AE FE EEE DE 9G DE DE EEE 
o10 LOAR NAME - “ce (P/S) 

O11 UNIT fF 4 (P/S) 

020 DATE ~ (P/S) 

030 SWITCH (00000000) - (P/S) 

040 FILE NAME— KOEF TLE (P/S) 

O41 UNIT- Fi (P/S) 

042 PACK- FAFLFA (R/S) 

043 LABEL -— LIRIV2 (P/S) 

044 RECORLS— 4 (P/S) 

045 LOCATION- (P/S) 

046 RETAIN- T (P/S) 

047 LIATE- (P/S) 

050 FILE NAME- (P/S) 

HEH HE He HH HEH HEHE IE TE HE HE HE HE HE HIE IE EEE I RMR EE MM ERR MK KERR K KKK 
MODIFY 

RUN (P/S) 

READY- BUTLIIC (P/S) 

000 BUILDC NAME- MASTER (P/S) 

001 UNIT— Fi (P/S) 

FE HE HE TE HE HE HE HEE HE HE HE IE HE HE HE HE HE HEHE HEHE EE EEE HE HMR MRR MK KRM KEKE HE 
010 CALL NAME- KSE (P/S) 

O11 UNIT- Fi (P/S) . 

020 CALL NAME— “ROE (P/S)- 

O21 UNIT- Fi. (ENTER-) 


HHH KE EK HK HEE EK HE HE HH HE EH KE EH IE KEE IE ME HE MEK UK K MRK 
MODIFY 


RUN (P/S) 

REALY— CALL. (P/S) 

900 CALL NAME- MASTER (P/S) 

OO1 UNIT- Fi (P/S) 

000 CALL NAME-KSE 

O01 UNIT-F1. 

HEH HHH HEH IE IH HE HEH HH HHH IH HH HK KH HH HH EE EE HEE EH I EE EE EE HEE EI 
010 Loan NAME-SKSE 

O11 UNIT-F1 

HMMM IHRM KKK RK RAK RRR KEK MRR RK MRK KR KKK K KKK MRM KKKRKRKKEKEKREH 
FORMAT DESCRIPTION ? YES (P/S) 

FORMAT TYPE — KLE (P/S) 
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NEW SOURCE MODULE ? YES (P/s) 
SOURCE MODULE NAME - KDEFOR (P/S) 
SOURCE MODULE UNIT - Fi. (P/S) 


06672 NEW STATEMENTS MAY BE ADDED TO SOURCE ENTRY 


00000 HOL 0946 (P/S) 

00010 AOS (P/S) 

00020 AOZ1. (P/S) 

00030 HO2 (COMMANID KEY O06 PRESSED) 
END OF JOR ? YES (P/S) 


KSE END OF JOB 


000 CALL NAME—KDIE 

oo1 UNIT-F1 

SE FE HE HE FE HE HE HE HE FE HE HE I HE EE Ie EE HEE HE EE EE EE HK RMR RMR MMR MH KRRRER EMRE 
010 LOAD NAME-SKIIE 

Olt UNIT-F1 

020 FILE NAME-KDEF ILE 

O21 UNIT-F1 

022 PACK-FAFLFL 

023 LABEL-DRIV2 

024 RECORDS—4 

O25 . RETAIN-T 

HE HG HE MG HE HG EE GE HEE HEE FE IE FE EG FE SE HE aE GE EE EE EE BEE 9G AE J: SE EEG 9G 9G FE SE TE SE DE FE OE 9G HE EE EEE EE 
FORMAT NAME ~ KOEFOR (P/S) 
FORMAT UNIT - F 4. (P/S) 
UISFLAY FORMATS ? YES (P/S) 
HO1096 

A005 

AOF1L 

NEW KDE FILE ? YES (P/S) 
KEY FIELD START - NO (P/S) 
SELECT FORMAT NUMBER — O01 (P/S) 


cd * 


00000 THIS IS AN EXAMPLE OF CHAIN PROCEDURE ON THE MOMEL 6 CP/S) 


00010 KSE WAS THE FIRST JOB EXECUTED ANID KOE WAS THE SECOND ANI LAST JOB CFS) 


00020 THE CHAIN WAS INITIATED BY: CALLING MASTER: WHICH WAS BUILT TN A BUTLIOC CYCLE CPS) 
00030 CCOMMANTD KEY O46 PRESSET) 


HEHE HEME HE HIE IE HE EH HE EE HE HE HE HEE HEHE HE HE HEHE HE I HE EE WE IE HEE HE HE HE IEE HE EE HE IEE IE HE IE EE IE HE IE HE DE DE EE HE ED HE HE FE DEE EEE EE EE HE EEK 


BATCH ACCUMULATORS 09 O1 O02 03 04 
9 9 0 QO 0. 
O05 06 07 08 Oo? 
0 0 0 0 0 
FINAL ACCUMULATORS 00 | OL 02 03 04 
0 9 0 0 0 
OS ; 06 07 08 Oo? 
0 Oo QO 0 0 


DEH HEE HE IEF HE IEE HE EE HE EE HE EE IE EEE IE IE HE EIE E IHIHKK KIHHKKH KK HRRKR RK E KREMER ERE KER KEREE 
END OF JOB ? YES (P/S) 


KOE END OF JOB 
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PART II 
DISK UTILITY PROGRAMS 


Part 11. Disk Utility Programs 79 


Introduction to Disk Utility Programs 


Every method of data processing requires a certain amount 
of maintenance work to keep it in good running order. 

For example, you must make back-up copies of important 
files, and remove out-of-date files. The Disk Utility prog- 
rams are a collection of maintenance programs to serve 
your data-processing system. The Disk Utility programs 
are: 


Disk Initialization 

Alternate Track Assignment 
Alternate Track Rebuild 

File and Volume Label Display 
File Delete 

Copy/Dump 

Library Maintenance 


You might use one of the preceding utility programs to: 
© Prepare disks for use. 

© Replace defective tracks. 

®@ Replace incorrect data on a track. 

© Print VTOC (volume table of contents) information. 
© Delete files from a disk. 

® Copy or print files. | 


© Maintain system libraries. 


GENERAL PROGRAM OPERATION 


The utility programs require control statements describing 
the jobs you want done. They read these statements from 
the system input device, or from procedures stored in a 
source library on disk. The system input device is normally 
the keyboard, but the operator can specify another device 
by his response to the OCL keyword READER during 
initial program loading (IPL). 


The following diagrams outline the general way the utility 


programs operate. Assume that the programs are reading 
control statements from the keyboard. 
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All Programs Except Library Maintenance 
Operator keys OCL. 


sequence to load and 
run programs 


Utility Program prints: 


ENTER ‘//' CONTROL 
STATEMENT 


Program reprompts 


until // END is 
entered 

Operator keys control 

statement for utility 

program 

Last Control ——~>NO 

Statement 

// END? 


YES SA 


Program does 
requested function 


Program ends 


_ Library Maintenance Program 


Operator keys OCL 
sequence to load and 
run program 


Program prints: 
ENTER ‘//’ CONTROL 
STATEMENT 





Operator keys the 
control statement 
for a particular 
program use 


Program does the 
requested function 


Program prints: 
ENTER ‘//’ CONTROL 
STATEMENT 


More Library —————> YES 
Maintenance functions? 


NO 


Operator keys: // END 


Program ends 


USING DISK UTILITIES 

To use utility programs, you must write utility control 
statements and operation control language (OCL) state- 
ments. In this manual, therefore, the information for 
every program is divided into five sections: 

® Control statement summary 


@ Parameter summary 


@ Parameter descriptions 


OCL considerations 
@ Examples 


The first three sections are to guide you in writing utility 
control statements. The OCL section is to guide you in 
writing OCL statements. The examples will help you in 
both. 


Control Statements 


Every control statement is made up of an identifier and 
parameters. The identifier is a word that identifies the 
control statement. It is always the first word of the state- 
ment (following // blank in positions 1-3). Parameters are 
information you are supplying to the program. Every 
parameter consists of a keyword, which identifies the 
parameter, followed by the information you are supplying. 


In writing the statements, use the manual in the following 
way: : 


1. . Look at the CONTROL STATEMENT SUMMARY 
to determine which control statements and parameters 
apply to the program use you are interested in. (The 
program uses are stated in the text preceding the 
control statement summary.) 


2. If you need information about the contents or 
meanings of particular parameters, look at the 
PARAMETER SUMMARY. 


3. If you need more detailed information about param- 
eters, read the PARAMETER DESCRIPTIONS 
following the parameter summary. 


4. If you need examples of specific jobs, look at the 
EXAMPLE section. All examples show the-OCL 
and utility control statements needed to load and 
run the utility programs for specific jobs. The 
statements are shown in the form they are printed 
on the system printer. 
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Coding Rules 
The rules for writing control statements are as follows: 


1. //blank. Allcontrol statements must have // blank 
in positions 1-3. 


2. Statement Identifier. Begin in position 4 or after 
of the statement. Do not use blanks within the 
identifier. 


3: Blanks. Use one or more blanks between the identi- 
fier and the first parameter. Do not use them any- 
where else in the statement. 


4. Statement parameters. Parameters can be in any 
order. Use a comma to separate one parameter from 
another. Use a hyphen (-) within each parameter to 
separate the keyword from the information you — 
supply. Do not use blanks within or between 
parameters. 


5. Statement parameters containing a list of data after 
the keyword. Use apostrophes (’) to enclose the 
items in the list. Use a comma to separate one item 
from another. For example: UNIT-’R1,R2’ (R1 and 
R2 are the items in the list). 


6. Statement length. All control statements except 
Disk Initialization and Library Maintenance state- 
ments must not exceed 96 characters. The following 
Library Maintenance statements can be continued 
on another statement (see continuation rules for 
card OCL in Part 1 of this manual): 


// ALLOCATE 

// COPY (except COPY statements read from a file) 

// DELETE 

// MODIFY (not REMOVE, REPLACE, or INSERT 
statements) 

// RENAME 


The Disk Initialization statement // VOL can also be 
continued. 


The following example shows a control statement. The 
statement identifier is COPY. The parameter keywords are 
FROM, LIBRARY, NAME, and TO. The information you 
supply is F1,0, SYSTEM, and R1. 


// COPY FROM-F1,LIBRARY-O,NAME-SYSTEM,TO-R1 


82 


End-Control Statement 


The END statement is a special control statement that 
indicates the end of contro! statements. It consists of the 
letters // END in positions 1-6 and must always be the last 
contro! statement for the programs. 


WRITING OCL STATEMENTS 


To write OCL statements to run a utility program, look at 
the OCL CONSIDERATIONS section for that program. 
There you will find a list of the required keywords and 
responses for LOAD and BUILD sequences. (Keywords 
not listed can be bypassed.) Should you need more general 
information about OCL, or more specific information about 
the keywords, see Part | of this manual. 


Note: Capitalized words and letters, numbers, and special 
characters have special meanings in OCL and utility control 
statement descriptions in this manual. 


Utility Control Statements 


In utility control statements, capitalized words and letters 
must be written as they appear in the statement description. 
Sometimes numbers appear with the capitalized informa- 
tion. These numbers must also be written as shown. 


Words or letters that are not capitalized mean you must use 
a value that applies to the job you are doing. The values 
you can use are listed in the parameter summaries for the 
contro! statements. 


Braces and brackets ( { [ ] \ ) sometimes appear in param- 


-eters shown in control statement summaries and parameter 


summaries. They are not part of the parameters. Braces 
indicate that you must choose one of several values to com- 
plete the parameter. For example, RETAIN bt means you 
can use either RETAIN-T or RETAIN-P. Brackets indicate 
optional parameters. For example, [,TO-‘key’] is an option- 
al parameter that may or may not be used. 


OCL Statements 


In OCL statements, keywords are capitalized. Responses 
that are shown in capital letters must be written as shown. 
If numbers or special characters are included with the 
capital letters, they must be written as part of the response. 
For example, $INIT is the name of the Disk Initialization 
program and must be written exactly as shown. Responses 
that are not capitalized mean you must use the value that 
applies to the job you are doing. 


Disks that are being used for the first time must be pre- 
pared for use. This process is called initialization. You 

can also use a disk that has been used before by reinitializing 
that disk (any data on the disk is destroyed). You use the 
Disk Initialization program to perform initialization. 
FUNCTIONS ‘ 

Initializing a disk involves: 

@ Naming the disk. 

® Writing track and sector addresses on the disk. 


@ Checking for defective tracks. 


@ Assigning alternate tracks to any defective tracks. 


Naming a Disk 


You must name every disk you intend to use. The 


operator uses this name to ensure that the correct disks are | 


being used for a job. He supplies the disk name in either 
OCL statements or program control statements. The 
system checks this name against the name stored as 
identification on the disk pack. If the names don’t match, 
‘ a halt occurs and a message is printed to the operator. The 
operator may then change disks. All this must happen 
before a Model 6 program can use a disk. 


Writing Track and Sector Addresses 


A disk contains 200 or 400 tracks, each of which is divided 
into 24 sectors. An area at the beginning of every track 
and sector is set aside for an address. These addresses are 
necessary for locating data. 
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Track and sector addresses are not written on disks when 
the disks are manufactured. You must do this before you 
use the disks. The Disk Initialization program does it for 
you. 


Checking for Defective Tracks (Surface Analysis) 


The Disk Initialization program checks the condition of 
tracks. It does this by writing data on the tracks, then 
reading and checking the data to ensure it was recorded 
properly. If the check shows that the data is incorrect, 
the track on which the data was written is considered 
defective. This process is called surface analysis. 


Assigning Alternate Tracks 


If a defective track is found during surface analysis, an 
alternate track is assigned to it. The sole purpose of the 
alternate track is to act as a substitute for the defective 
track. Model 6 programs attempting to use the defective 
track will automatically use the alternate instead. 


lf either track O or 1 is defective, the program considers the 
disk unusable and stops initializing it. Tracks O and 1 are 
used only by the system and cannot have alternates 
assigned to them. 


Every disk has six alternate tracks. Therefore, a maximum 
of six defective tracks may be assigned alternates on a disk. 
If there are more, the disk is considered unusable. 


If tracks become defective after a disk is initialized, another 
program (Alternate Track Assignment) is used to assign 
alternate tracks. Disks need not be reinitialized to assign 
alternate tracks. 
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OPTIONS 


The Disk Initialization program allows you the following 
options: 


@ You may choose one of three types of initialization: 
primary, secondary, or clear. 


@ You may initialize up to three disks during the same 
program run. 


@ During primary initialization, you may decide whether 
to erase alternate track assignments already on the disk 
or leave them assigned. 


@ You may use up to ten characters, in addition to the disk 
name, to further identify a disk. 


@ You may specify the number of times you want the 
program to do surface analysis. 


You specify the options you want in control statements 
(see Contro/ Statements in this chapter). 


Type of Initialization 


The program offers three types of initialization: primary, 
secondary, and clear. The type you choose determines the 
portion of the disk that will be initialized. The portions of 
a disk that can be initialized depend on the data-storage 
capacity of your disk drive. 


Disk drives of differing storage capacities are available for 
your system. All drives use the same type of disks. The 
only difference is the number of tracks the drives can use. 
The larger the drive capacity, the more tracks the drive can 
use, 


If you increase the capacity of your disk drives, more tracks 

on your disks become available for use. These additional 

tracks must be initialized before being used. The three 

types of initialization allow you the following options 

according to type. 

@ Primary or clear—initializing all tracks corresponding to 
the new capacity, including any that were previously 
initialized. 


© Secondary—initializing only the additional tracks made 
available by the increased capacity. 
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Primary Initialization 


Primary initialization applies to new disks, or disks you 
have used but want to initialize again. The program ini- 
tialized all tracks corresponding to the capacity of the 
drives on which the disks are mounted. Tracks that were 
previously initialized are initialized again. Any data on the 
tracks is destroyed. 


You can use primary initialization on a disk as often as you 
want. However, the program will not initialize disks con- 
taining libraries, temporary data files, or permanent data 
files. You must delete data files with the File Delete Pro- 
gram and libraries with the allocate function of the Library 
Maintenance Program. 


Secondary Initialization 


Secondary initialization applies to disks that were initialized 
on drives of less capacity than drives you are now using. 
When you increase the capacity of your drives, more tracks 
on your disks become available for use. You must initialize 
the additional tracks. Use secondary initialization if you do 
not want information destroyed on tracks already in use. 
The program initializes the additional tracks only. Tracks 
already in use are not disturbed. 


The program will not do secondary initialization on new 
disks or disks that have already been initialized to the 
capacity of the drives on which they are mounted. 


Clear Initialization 


Clear initialization applies to new disks or disks previously 
used that require reinitialization due to invalid pack labels 
or an unrecoverable disk error. All tracks corresponding to 
the capacity of the drives on which the disks are mounted 
are initialized. Tracks that were previously initialized are 
reinitialized. 


CAUTION 
All libraries, temporary data files, or permanent data files 
are completely wiped out. 


Number. of Disks 


The Disk Initialization program can initialize a maximum 

of three disks during one program run. The type of ini- 
tialization you specify for a program run applies to all 

disks being initialized during that run. The disks, however, 
must be mounted at the same time. You can’t, for example, 
initialize more than one removable disk on a given drive 
during the same program run. 


Erasing Alternate Track Assignments 


You can use primary or clear initialization to reinitialize 
disks that have been used. However, alternate track assign- 
ments could exist on such disks. The primary initialization 
function of the Disk Initialization program, therefore, gives 
you the option of: 


@ Erasing existing alternate track assignments and check- 
ing the condition of all tracks. 


© Leaving existing alternate track assignments and check- 


ing only those tracks to which alternates are not assigned. 


The option you choose applies to all disks being initialized 
during the program run. 


Additional Disk Identification 


When you name a disk during primary or clear initialization, 
you can use up to ten characters, in addition to the disk 
name, to further identify the disk. The additional identifi- 
cation is strictly for your use. It is not used by the check- 
ing programs to ensure that the right disks are being used. 


If you use the File and Volume Label Display program to 
print VTOC (volume table of contents) information from a 
disk, the additional identification is printed with the disk 
name. 


Surface Analysis Option 


You can tell the Disk Initialization program to perform 
surface analysis from 1 to 255 times before judging whe- 
ther or not tracks are defective. A track must successfully 
complete every check before being judged usable. If incor- 
rect data is detected during surface analysis, the track on 
which the data was written is judged defective and an 
alternate is assigned to it. 


The number of times you specify surface analysis to be 
performed applies to all disks being initialized during the 
program run. The time required for initialization is increas- 
ed if you request surface analysis to be performed more 
than once. 


CONTROL STATEMENTS 


You must supply the following control statements to spe- 
cify the program options you want: 


1. UIN statement—indicates the type of initialization, 
the number of disks being initialized, the number of 
times you want surface analysis performed, and whe- 
ther or not you want previous alternate track assign- 
ments erased. One UIN statement is required per 
program run. 


2. VOL statement—indicates the name you assign to the 
disk, plus any additional identification you want to 
give the disk. The VOL statement applies to primary 
and clear initialization only. One is required for 
every disk you initialize. Comtinuation statements 
are permitted. 


3. END statement—indicates the end of control state- 
ments. 
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Control Statement Summary 


Type of Initialization Control Statements @ 


Primary 
/1 VIN TYPE-PRIMARY UNIT: } "00° i | VERIFY-number,CAP- eote 
codes FULL 
New Disks // VOL PACK-name,!D-characters 


// END 


‘codes’ YES FULL 


Disk already in 


ene // VOL PACK-name,|D-characters,;OLDPACK-name 
use (reinitialize) 


// END 


| // UIN TYPE-PRIMARY,UNIT- }°0C% { | VERIFY-number,ERASE-| V0 t cap. Hie 
Secondary ©: 


// UIN TYPE-SECONDARY,UNIT- $6072 i .VERIFY-number 
Disk already in codes 
on // END 
// UIN TYPE-CLEAR,UNIT-} cade i ,VERIFY-number,CAP- Eat 
. ‘codes’ | FULL 
Clear © VOL PACK-name,|D-characters,OLDPACK-name 


// END 
1) Control statements are required in the order they are listed: UIN, VOL, END or UIN, END. 
For primary and clear initialization, one VOL statement is required for each disk listed in the UNIT parameter of the UIN state- 
ment. The PACK parameter in the first VOL statement applies to the first disk listed in the UNIT parameter. The PACK 


parameter in the second VOL statement applies to the second disk listed in the UNIT parameter, and so on. 


© VOL statements are not required for secondary initialization because the disks are already named. 
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Parameter Summary 


UIN (Input Definition) Statement 


TYPE-PRIMARY 


TYPE-SECONDARY 


TYPE-CLEAR © 


UNIT-code 
UNIT-’code,code’ 
UNI T-‘code,code,code’ 


VERIFY-number 


ERASE-YES 
ERASE-NO 


CAP-HALF 


CAP-FULL 


Primary initialization. Initialize the disks to the capacity of the drives on which they 
are mounted. Tracks already initialized are re-initialized. The program will not 
initialize disks containing libraries, temporary data files, or permanent data files. 


Secondary initialization. Applies only to disks that were initialized on drives of less 
capacity than the drives you are now using. It means initialize the uninitialized por- 
tions of the disks to the capacity of the drives on which the disks are mounted. Tracks 
already initialized are not disturbed. 


Clear initialization. Initialize the disks to the capacity of the drives on which they are 
mounted. Tracks already initialized are re-initialized. Active files and library checking 
is bypassed and any data on the tracks is destroyed. 


Disk location (one disk). Possible 
codes: 

Disk location (two disks). R1, F1, 
R2, F2 


Disk location (three disks). 


Do surface analysis the number of times indicated (number can be 1-255). VERIFY-1 
is assumed if you omit the parameter. 


Retest defective tracks. _ Primary initialization only. ERASE-NO is 
assumed if you omit the parameter. 
Do not retest defective tracks. 


Initialize a disk to half capacity The CAP Keyword forces ERASE-YES. Pack 

even if ona full capacity drive. is initialized to capacity of the drive if this 
keyword is omitted. 

Initialize a disk to full capacity. 


VOL (Volume) Statement 


PACK-name 


1D-characters 


OLDPACK-name 


Disk name. Can contain any of the standard System/3 characters except apostrophes, 
leading or embedded blanks, and embedded commas. Its length must not exceed six 
characters. : 


Additional identification. Can contain any of the standard System/3 characters 
except apostrophes, leading or embedded blanks, and embedded commas. Its length 
must not exceed ten characters. If you omit this parameter no additional identifica- 
tion is written on the disk. 


Current disk name of the disk to be initialized. See PACK Keyword (above) for valid 
responses. 
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PARAMETER DESCRIPTIONS 


TYPE Parameter (UIN) 

The TYPE parameter indicates the type of initialization you 
want the program to do: primary, secondary, or clear. The 
type of initialization and the capacity of the disk drives on 
which the disks are mounted determine which disk tracks 
will be initialized. If this parameter is omitted, primary is 
assumed. 

UNIT Parameter (UIN) 

The UNIT parameter (UNIT-code) tells the location of the 
disks you want to initialize. The program can initialize up 


to three disks during one program run. 


The form of the UNIT parameter depends on the number of 
disks you are initializing: 


1. For one disk, use UNIT-code 
2. For two disks, use UNIT-‘code,code’ 
3. For three disks, use UNIT-‘code,code,code’ 


The codes indicate the locations of the disks: 


Code Location 
R1 Removable disk on drive 1. 
F1 Fixed disk on drive 1. 
R2 Removable disk on drive 2. 


F2 Fixed disk on drive 2. 


For primary and clear initialization, the order of codes 
must correspond to the order of VOL control statements. 
If, for example, you had used the parameter UNIT-’R1,R2’, 
the first VOL statement applies to the removable disk on 
drive 1 and the second VOL statement to the removable 
disk on drive 2. (No VOL statements are required for 
secondary initialization. The disk is already named.) 


VERIFY Parameter (UIN) 


The VERIFY parameter (VERIFY-number) concerns sur- 
face analysis. It enables you to indicate the number of 
times you want the program to do surface analysis before 
judging whether or not tracks are defective. The number 
can be from 1-255. If this parameter is omitted, VERIFY-1 
is assumed. — 
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ERASE Parameter (UIN) 


The ERASE parameter concerns alternate track assignment. 
It applies only to disks that have already been initialized 
and used, but you are reinitializing using primary initializa- 
tion. 


The condition of tracks on such disks has been tested at 
least once before (during the previous initialization) and 
tracks that were found to be defective during surface analy- 
sis were assigned alternates. The ERASE parameter, there- 
fore, enables you to indicate whether you want the program 
to (1) retest the tracks to which alternate tracks are already 
assigned or (2) leave the alternate tracks assigned without 
retesting the tracks. 


The parameter ERASE-YES means to retest. If you tell 
the program to retest, it erases any existing alternate track 
assignments, and tests all tracks as though the disk were 
new. 


The parameter ERASE-NO means not to-retest. If you 
tell the program not to retest, it tests only those tracks to 
which no alternate tracks are assigned. Alternate tracks 
previously assigned remain assigned. 


CAP Parameter | 


The CAP parameter determines the size of the pack when it 
is initialized. The CAP-HALF parameter means to initialize 
the pack to half capacity even if it is on a full capacity drive. 
The CAP-FULL parameter means to initialize the pack to 
full capacity. CAP-FULL should not be used on a half 
capacity system. The use of the CAP keyword forces 
ERASE-YES. 


Disk Drive Capacity 


Disk drives of different data-storage capacities are available 
for System/3 Model 6. All drives use the same type of 
disks. The only difference is the number of tracks the 
drives can use: the larger the drive capacity, the more 
tracks the drive can use. However, you must initialize the 
disk tracks before using them. 


PACK Parameter (VOL) 


The PACK parameter (PACK-name) applies to primary and 
clear initialization only. During primary and clear initializa- 
tion, the Disk Initialization program writes a name on each 
disk. It uses the name you supply in the corresponding 
PACK parameter. (One VOL control statement containing 
a PACK parameter is required for each disk.) 


The name can be any combination of standard System/3 
characters except apostrophes (’), leading or embedded 
blanks and embedded commas (due to their delimiter 
function) (see Appendix A). Its length must not exceed six 
characters. The following are valid disk names: 0, FO001, 
012, A1B9, ABC. 


In general, disk names are used for checking purposes. 
Before a program uses a disk, the disk name is compared 
with a name you supply (either in OCL statements or con- 
trol statements required by the program). If the names do 
not match, a message to the operator is printed. In this 
way, Programs cannot use the wrong disks without the 
operator knowing about it. 


ID (Identification) Parameter (VOL) 


The ID parameter (ID-characters) applies to primary and 
clear initialization only. |t enables you to include up to 

ten characters, in addition to the disk name, to further 
identify a disk. The information is strictly for your use. | 
(It is not used for checking purposes by the system.) If you 
use the File and Volume Label Display program to print 
the disk name, it will also print the additional identification 
for you. 


The additional identification can be any combination of 
standard System/3 characters except apostrophes (’), 
leading or embedded blanks, and embedded commas (due 
to their delimiter function). However, the maximum num- 
ber is ten. 


OLDPACK Parameter (VOL) 


The OLDPACK parameter (OLDPACK-name) is used to 
verify that a specific disk is mounted before initialization is 
started. If the name of the disk mounted does not match 
the name you specify, the program halts. 


The name specified can be any combination of standard 
System/3 characters except apostrophes, leading or embed- 
ded blanks, and embedded commas. Its length must not 
exceed six characters. 
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OCL CONSIDERATIONS 


LOAD Sequence 

Keywords @ Responses 2 Considerations 

READY LOAD None 

LOAD NAME SINIT. Name of Disk Initialization program. 

UNIT , R1, R2, F1, or F2 ‘Location of disk containing Disk Initialization program. 
MODIFY RUN None 


1) Only the keywords listed here are required. You can bypass the rest. 


@ You end every response by pressing PROG START. 


BUILD Sequence 
Keywords @ Responses 6 Considerations 
READY _ BUILD None 
BUILD NAME Procedure name Name by which procedure will be identified in source 
library. 
UNIT R1, R2, F1, or F2 Location of disk containing source library. 
LOAD NAME | SINIT Name of Disk Initialization program. 
UNIT | R1, R2, F1, or F2 Location of disk containing Disk Initialization program. 
MODIFY i - INCLUDE Response when including contro! statements in 
utility control statements procedure. 


OR RUN 


es RUN 


Response when not including control statements in 
procedure. 


1) Only the keywords listed here are required. You can bypass the rest. 


2) You end every response by pressing PROG START. 


EXAMPLE 
Primary Initialization of Two Disks 


Statements 


READY 


KRERKEKKEKKKEKEKKKEKEKEEKREKKKEKKEKEE 


010 LOAD NAME 
011 UNIT 
020 DATE (XX/XX/XX) - 
030 SWITCH (00000000) - 
040 FILE NAME - 


RREKEKKKRKEKEKKEEKRKEKEREREKERK 


MODIFY 





ENTER '//' CONTROL STATEMENT 


// UIN UNIT-'F2,R2' , TYPE-PRIMARY 


ENTER '//' CONTROL STATEMENT 
// VOU PACK-2222 

ENTER '//' CONTROL STATEMENT 
// VOL PACK-PAYROL, ID-010270 

ENTER '//' CONTROL STATEMENT 
// END 


Explanation 





OCL LOAD Sequence. 


Boxed areas are operator responses... 


Keywords for which no responses are 
shown are the ones bypassed. If you 
press ENTER-— after responding to 
UNIT, the DATE, SWITCH, and FILE 
NAME keywords are not prompted. 


“RUN is the response to MODIFY even 
though the two words do not appear 
on the same line. 


Message printed by Disk Initialization program. 


Control statement supplied by operator. 


Sequence repeats until operator enters 
END statement. 


® Disk Initialization program is loaded from the fixed disk on drive 1 (UNIT-F1 in OCL sequence). 


@ The two disks on drive 2 are being initialized (UNIT-'F2, R2’ in UIN statement). 


@ The fixed disk (F2) will be given the name 2222 (PACK-2222 in first VOL statement). 


@ The removable disk (R2) will be given the name PAYROL (PACK-PAY ROL in second VOL statement). Additional 
identifying information, 010270, will be written on the removable disk (1D-010270). 
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MESSAGES FOR DISK INITIALIZATION 


Message Meaning 


INITIALIZATION This message is printed when initialization of a disk is complete. XX indicates the 
ON XX COMPLETE unit (R1, R2, F1, or F2) on which the initialization is complete. 
INITIALIZATION ON XX This message is printed when initialization of a-disk must be terminated for one of 
TERMINATED the following reasons: 

Ti Cylinder zero is defective. 


2. More than six tracks are defective. 
3. Possible disk hardware error exists. 
4. The program attempted to initialize the disk ten times without success. 


After this message is printed, halt A13 will occur. XX indicates the unit (R1, 
R2, F1, or F2) on which the initialization is terminated. 


**ALTERNATE TRACKS These two messages are printed when a primary track is defective and an alternate 
ASSIGNED** track is assigned to it. 

PRIMARY TRACK XXX XXX indicates the tracks involved. 

ALTERNATE TRACK XXX 

UNRECOVERABLE ERROR; This message is printed when the Disk Initialization program determines that the 
RE-INITIALIZING PACK disk has not been initialized properly. The program will again attempt to initialize 


the disk correctly with ERASE-YES forced. The maximum number of times that 
the program will attempt to initialize a disk is ten. After that number of times, 
halt A13 occurs. 


92 


Sometimes a disk track causes a reading or writing error 
during a job and an alternate track must be assigned to re- 
place the defective track. The process of assigning an 
alternate track is performed by the Alternate Track Assign- 
ment program. 


FUNCTIONS 

The process of assigning an alternate track consists of: 
@ Writing track sarees on disk. 

© Checking for defective tracks. 

@ Printing all track sectors that contain incorrect data. 


@ Assigning an alternate track. 


Writing Track Addresses 


Any time a track causes reading or writing errors during a 
job, the system stops the program currently in operation 
and writes the track address in a special area on the disk. 
All disks contain such an area. The program can then 
locate a track by using the addresses stored in this area. 
As long as there are alternate tracks available for use, 
assignment can be done for all the tracks identified in this 
area. 


Checking For Defective Tracks 


The Alternate Track Assignment program uses a procedure 
called surface analysis to test the condition of tracks. 
Surface analysis consists of writing test data on a track, 
then reading the data to ensure it was written properly. 


‘Before doing surface analysis, the Alternate Track Assign- 
ment program transfers any data from the track to an 

alternate track. This is the alternate that will be assigned 
if the track proves to be defective. 


Alternate Track Assignment Program ($ALT) 


In judging whether or not the track is defective, the prog- 
ram does surface analysis the number of times you specify 
in the VERIFY parameter. If you omit the parameter, the 
program does surface analysis once. If the track causes 
reading or writing errors any time during surface analysis, 


the program considers the track defective. 


Printing Sectors Containing Incorrect Data 


If a track is defective, some of the data transferred to the 
alternate track could be incorrect. Therefore, when reading 
data from the defective track, the program logs all track 
sectors containing data that caused reading errors. Fora 
hard-copy printout, the printer must be assigned as the 
logging device. Characters that have no print symbol are 
printed as two-digit hexadecimal numbers. The following 
is an example: 


ABCDE GH123 45... 
B A 
6 5 


Appendix A lists the characters in the standard character 
set and their corresponding hexadecimal numbers. 


To correct errors on the alternate track, use the Alternate 
Track Rebuild program. 


Assigning An Alternate Track | 


An alternate track is assigned if a track is defective. When 
the program assigns an alternate, it transfers the contents 
of the defective track to the alternate. The alternate track 
is then automatically used any time the program attempts 
to use the defective track. 


There are six alternate tracks. The program will not do 
conditional assignment if all six are already in use. An alter- 
nate track can replace any track except 0 and 1 (which are — 
reserved for system use) and 2 through 7 (which are the 
alternate tracks). 
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OPTIONS 


The Alternate Track Assignment program gives you the 
following options: 


© You may choose one of three types of assignment— 
conditional, unconditional, or cancel prior. 


@ You may use up to six alternate tracks on every disk. 


© You may specify the number of times you want the 
program to do surface analysis. 


You specify the options you want in control statements 
(see Contro/ Statements in this chapter). 

Type of Assignment 

The program offers three types of assignment: conditional, 
unconditional, and cancel prior. The three types of 
assignment allow you the following options according 


to type. 


© Conditional—testing the condition of a track and 
“assigning an alternate if it is defective. 


® Unconditional—assuming a track is defective and 
assigning an alternate. 


© Cancel prior—canceling an alternate track assignment. 


Conditional Assignment 
Conditional Assignment consists of testing the condition of 
a track (surface analysis) and, if the track is defective, 


assigning an alternate track to replace it. It is the normal 
use of the Alternate Track Assignment program. 


Situation: Conditional assignment applies to tracks that 
cause reading or writing errors during a job. Anytime a 
track causes such errors, the system does the following: 


Ts Stops the program currently in operation. 


2. Writes the track address in a special area on the disk. 
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When you use the Alternate Track Assignment program to 
do conditional assignment, the program locates the tracks 
by using the addresses in the special area on disk. All disks, 
fixed and removable, have such an area. The program will 
do conditional assignment for all tracks identified in the 
area (one at a time), as long as there are alternate tracks 
available for assignment. 


Unconditional Assignment 


You have used the Alternate Track Assignment program 
to do conditional assignment. The test on the track 
indicated that the track was not defective (an alternate, 
therefore, was not assigned). But the track still causes 
reading or writing errors, and you want to assign an 
alternate to it. For this reason you should assign an 
alternate track using unconditional assignment. Alternate 
tracks are assigned without first testing the condition of 
the tracks suspected of being defective. (A conditional 
assignment is forced after an unconditional request to 
check any other tracks that previously caused errors.) 


Cancel Prior Assignment 


Cancel prior assignment is used when a defective track was 
found, but all alternates are in use. You want to free an 
alternate so you can recover the data from the defective 
track. Canceling an assignment involves transferring the 
data from an alternate track back to the track to which 
the alternate was assigned. Prior to transferring the data 
back to the original track, the Alternate Track Assignment 
program tests the condition of the original track. If the 
track is found defective, the program stops and one of 
three options is. taken: 


@ You leave the assignment as it is but continue checking 
other assignments (if there are any), or the program ends. 


@ You cancel the assignment regardless of the condition of 
the original track. Before freeing the alternate, however, 
you would normally copy (to another disk) the file or 
library entry that.uses the alternate. This saves the data 
that is already on the alternate. 


@ You test the track again. 


You must run the File and Volume Label Display program 
to determine to what tracks alternates are assigned. 


Number of Alternate Tracks CONTROL STATEMENTS 
You must supply the following control statements to 


There are six tracks on every disk that can be used as : 
specify the program options you want: 


alternates. These tracks, in addition to tracks 0 and 1, 
can’t be replaced; that is, they can’t have an alternate 


assigned to them. 1. ALT statement—indicates the name and unit of the 


disk containing the defective track, the number of 
times you want surface analysis done, and the 

tracks to which you want to assign alternates or 

for which you wish to cancel assignment of an 
alternate track. There can be only 6 ALT statements 
per job. . 


Surface Analysis 


You can tell the program to do surface analysis from 1 to 
255 times before judging whether or not tracks are 
defective. A track is judged usable only after successfully 
completing every check. If at any time during surface 
analysis incorrect data is found, the track on which the 
data was written is judged defective, and an alternate is 
assigned to it. 


2. END statement—indicates the end of control 
statements. 


For each use, the program requires the statements in the 
order they are listed: ALT, END. 


Control Statement Summary 


Use Control Statements 

Conditional Assignment // ALT PACK-name, UNIT-code, VERIFY -number 
// END 

Unconditional Assignment /] ALT PACK-name,UNIT-code,ASSIGN- mace { ,VERIFY-number 

tracks 

// END 

Cancel Prior Assignment // ALT PACK-name,UNIT-code,UNASSIGN- J 74 t VERIFY-number 
// END 


Parameter Summary: ALT (Alternate) Statement 


Parameter Meaning 


PACK-name Name of the disk. 
UNIT-code Location of the disk. Possible codes are R1, F1, R2, F2. 
VERIFY-number In testing the condition of a track, do surface analysis the number of times indicated 


(number can be 1-255). If VERIFY parameter is omitted, do surface analysis once. 


ASSIGN-track Assign an alternate (unconditionally) to one track. Use track numbers 8-405 to 
identify tracks. 
ASSIGN-'track,track,...’ Assign one alternate (unconditionally) to each 
track (maximum is six). 


UNASSIGN-track Cancel one alternate track assignment. Use track numbers 8-405 to 
which alternates are assigned. 
UNASSIGN-’track,track,...’ Cancel two or more alternate track assignments 
(maximum is six). 
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PARAMETER DESCRIPTIONS 


PACK Parameter 


The PACK parameter (PACK-name) tells the program the 
name of the disk containing the defective tracks. This is 
the name written on the disk by the Disk Initialization 
program. 


The Alternate Track Assignment program compares the 
name in the PACK parameter with the name on the disk 
to ensure they match. In this way, the program ensures 
that it is using the right disk. 


UNIT Parameter 
The UNIT parameter (UNIT-code) indicates the location of 


the disk containing defective tracks. Codes for the possible 
locations are as follows: 


Code Location 
R1 Removable disk on drive 1. 
Fi Fixed disk on drive 1. 
R2 Removable disk on drive 2. 
F2 Fixed disk on drive 2. 
VERIFY Parameter 


The VERIFY parameter (VERIFY-number) enables you to 
indicate the number of times you want the program to do 
surface analysis before judging whether or not the track is 
defective. The number can be from 1-255. If you omit 
the parameter, the program does surface analysis once. 
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ASSIGN Parameter 


The ASSIGN parameter (ASSIGN-track) applies to uncon- 
ditional assignment. It tells the program which tracks you 
want alternates assigned to. 


You can assign alternates to any tracks except 0-7. 


The form of the ASSIGN parameter depends on the num- 
ber of tracks you want to specify. For one track, use 
ASSIGN-track; for two tracks, use ASSIGN-‘track,track’; 
and so on. You can specify up to six tracks. 


Use the track numbers (8-405) to identify the tracks. For 
example, the parameter ASSIGN-’50, 301,353’ causes the 
program to assign alternate tracks to tracks 50, 301, and 
353. 


UNASSIGN Parameter 


The UNASSIGN parameter (UNASSIGN-track) applies to 
cancelling alternate track assignments. It identifies tracks 
for which you want the program to cancel assignments. 


You can cancel up to six assignments. The form of the 
UNASSIGN parameter depends on the number of assign- 
ments you want to cancel. For one assignment, use 
UNASSIGN-track; for two assignments, use UNASSIGN- 
‘track,track’; and so on. 


Use the track numbers (8-405) to identify the tracks. For 
example, the parameter UNASSIGN-’50,301,352’ causes 
the program to cancel alternate-track assignments for 
tracks 50, 301, and 352. 


OCL CONSIDERATIONS 


LOAD Sequence 


‘Keywords @ Responses @ Considerations 

READY LOAD None 

LOAD NAME . SALT Name of Alternate Track Assignment program. 

UNIT R1, R2, F1, or F2 Location of disk containing Alternate Track Assignment 
program. 

MODIFY RUN None 


@ Only the keywords listed here are required. You can bypass the rest. 


@ You end every response by pressing PROG START. 


BUILD Sequence 
Keywords @ Responses © Considerations 
READY BUILD None 
BUILD NAME procedure name Name by which procedure will be identified in source 
- library. 
UNIT R1,R2, F1, or F2 Location of disk containing source library. 
LOAD NAME SALT Name of Alternate Track Assignment program. 
UNIT . R1, R2, F1, or F2 Location of disk containing Alternate Track Assignment 
program. 
MODIFY INCLUDE Response when including control statements in procedure. 
| utility control statements 
OR RUN 
hes RUN Response when not including control statements in 
procedure. 


@ Only the keywords listed here are required. You can bypass the rest. 


2 You end every response by pressing PROG START. 
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EXAMPLE 
Conditional Assignment 


Situation 


Assume that during a job the system printed a message telling the operator it found a defective track on the removable disk 


on drive 1. (The name of the disk is BILLNG.) Before doing more jobs, the operator wants to use the Alternate Track 
Assignment program to check the condition of the track and assign an alternate to the track if it is defective. 


Statements 


READY za 


KREKEEKRKRKEEKKEKRERKEKEKERRKKKKKEEE 


010 LOAD NAME 7 
011 UNIT : 
020 DATE (XX/XX/XX) - 
030 SWITCH (00000000) - 
040 FILE NAME = 


BEREEKREKREKREKRKEEKEKKEKRKKKERER 


MODIFY 





ENTER '//' CONTROL STATEMENT 


ae ALT PACK- BE DUNG ONE -RL 


ENTER ya CONTROL STATEMENT 
// END 


Explanation 





| ew 


OCcL LOAD Sequence, 


Boxed areas are operator responses. 


Keywords for which no responses are 
shown are the ones bypassed. If you 
press ENTER-— after responding to 
UNIT, the DATE, SWITCH, and FILE 
NAME keywords are not prompted. 


RUN is the response to MODIFY 
even though the two words do not 
appear on the same line. 


Message printed by Alternate Track 
Assignment program. 


Control's statement supplied by Operator. 


System reprompts. END statement 
terminates sequence. 


® Alternate Track Assignment program is loaded from the fixed disk on drive 1 (UNIT-F1 in OCL sequence). 


© The name of the disk (BILLNG) and its location (removable disk on drive 1) are indicated by the PACK and UNIT 


parameters in the ALT statement. 


@ Because we omitted the VERIFY parameter from the ALT statement, the program does surface analysis once when it 


tests the condition of the track. 
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MESSAGES FOR ALTERNATE TRACK ASSIGNMENT 


Message Meaning 


ALTERNATE TRACK This message is printed when an alternate track has been assigned to a defective 


ASSIGNED track and the data has been transferred to the alternate track. 

PRIMARY TRACK HAS ' This message is printed when it is determined that a primary track is not defective. 
BEEN TESTED OK . 

TRACK xxx, UNIT zz xxx is the primary track number and zz is the unit involved. 

PRIMARY TRACK STILL This message is printed when the Alternate Track Assignment program determines 
DEFECTIVE that the track is still defective. 

DATA TRANSFERRED This message is printed when the data is transferred back to the primary track. 
BACK TO PRIMARY 

TRACK 

**SECTOR WITH DATA This message is printed when the Alternate Track Assignment program found an error 
ERROR** when transferring data. The sector that has the error is printed out. 

PRIMARY TRACK xxx This message is printed after ALTERNATE TRACK ASSIGNED and DATA 
ALTERNATE TRACK yyy, TRANSFERRED BACK TO PRIMARY TRACK. xxx is the primary track number, 
UNIT-zz yyy is the alternate track number, and zz is the unit involved. 
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Alternate Track Rebuild Program ($BUILD) 


An alternate track assigned by the Alternate Track Assign- 
ment program may contain some incorrect data. In order 
to correct this data, you must use the Alternate Track 
Rebuild program. 


FUNCTIONS 


The process of correcting data consists of: 
© Locating incorrect data. 


@ Replacing incorrect data. 


Locating Incorrect Data 


The Alternate Track Assignment program prints a listing of 
all track sectors that may contain incorrect data. You will 
find, on the listing, the name of the disk, the track and | 
sector numbers of the area suspected of containing incorrect 
data, and the data from these sectors. 


Control Statement Summary 


Control Statement 


// REBUILD PACK-name,UNIT-code, TRACK-location, LENGTH- 
number,DISP-position 


Substitute Data 


// END 


To replace characters 1-12 and 75-78 of a sector, you can 
use either of the following: 


characters with a LENGTH parameter of 78. 


2. Use one REBUILD statement for every set of 
positions you correct. 


The data you want to substitute must follow the REBUILD 
statements to which it applies. The order of the state- 
ments and data in the preceding example would be: 


// REBUILD statement for positions 1-78 
data 
// END 


// REBUILD statement for positions 1-12 
data 

// REBUILD statement for positions 75-78 
data 

// END 
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---1,---Use one REBUILD statement to replace allthe = 


Replacing Incorrect Data 
The Alternate Track Rebuild program. will replace the num- 
ber of characters you indicate in the positions you indicate. 


You must key the new characters in hexadecimal form. - 
These characters are called substitute data. 


OPTIONS 


The Alternate Track Rebuild program gives you the 
following options: 


® You may correct as many characters as you wish on one 
track. 


@ You may correct data on more than one track. 


You specify the options you want in control statements 
(see Contro/ Statements in this chapter). 


Parameter and Substitute Data Summary 


REBUILD Statement Meaning 
PACK-name Name of the disk. 


UNIT-code Location of the disk. Possible codes 
are R1, F1, R2, F2. 


TRACK-location Number of track and sector contain- 
ing incorrect data. Number is printed" 
by Alternate Track Assignment prog- 
ram. Track number must be three 


digits. (TRACK-01109 means track 
11 sector 9). 


LENGTH-number Number of characters being replaced. 
Number can be 2-256 and must be a 
multiple of 2 (2, 4, 6, etc.). 


DISP-position Position of the first character being 
replaced in the sector. Position can 
be 1-255. 


Substitute Data 


Code each character in hexadecimal form. Follow every second 
character, except the last, with a comma. EXAMPLE: The 
numbers 123456 would be coded as F1F2,F3F4,F5F6. (Appen- 
dix A lists the hexadecimal codes for System/3 characters.) 


__ digits; sector number. must be two -—-----——---- 


Number of Characters 


You may replace from 2 to 256 characters on one track in 
one run. You can do this by replacing all the characters 
(including correct data) or just groups of incorrect data. 


Number of Tracks 


The Alternate Track Assignment program prints the track 
and sector numbers for those areas that contain incorrect 
data. You can correct one or more of these tracks in one 
program run. The possible tracks you can correct are 8 
through 405 and the sectors are 0 through 23. Tracks 0 
through 7 can’t be corrected. 


PARAMETER AND SUBSTITUTE DATA 
DESCRIPTIONS 


PACK Parameter 


The PACK parameter (PACK-name) tells the program the 
name of the disk that contains the alternate track being 
corrected. This name is the one written on the disk by the 
Disk Initialization program. 


The Alternate Track Rebuild program compares the name 
in the PACK parameter with the name on the disk to 
ensure they match. In this way, the program ensures that 
the program is using the right disk. 


UNIT Parameter 


The UNIT parameter (UNIT-code) indicates the location of 
the disk that contains the alternate track being corrected. 
Codes for the possible locations are as follows: 


Code Location 
K1 Removable disk on drive 1. 
F1 Fixed disk on drive 1. 


R2 Removable disk on drive 2. 
F2 Fixed disk on drive 2. 


TRACK Parameter 


The TRACK parameter (TRACK-location) identifies the 
track and sector that contains the data being corrected. The 
defective track, not the alternate track, is the one you refer 
to. Referencing the defective track is the same as 
referencing the alternate track. 


Use the track and sector numbers in the TRACK parameter. 
The possible track numbers are 008-405. Always use three 
digits. The possible sector numbers are 00-23. Always use 
two digits. The track number must precede the sector num- 
ber. For example, the parameter TRACK-11019 means 
track 110, sector 19. 


Track and sector numbers are printed by the Alternate Track 
Assignment program when it prints data from sectors that 
contain incorrect data. 


LENGTH Parameter 


The LENGTH parameter (LENGTH-number) tells the pro- 
gram how many characters you are replacing in the sector. 
You must replace characters in multiples of 2 (2, 4, 6, and 
so on). The maximum is 256, which is the capacity of a 
sector. 


Length applies to characters that occupy consecutive posi- 
tions in the sector. If the characters you want to replace 
do not occupy consecutive positions, you must either 
replace more characters or use more than one REBUILD 
statement. For example, to replace characters 10-11 and 
24-25 in a sector, you can do either of the following: 


1. Use one REBUILD statement to replace characters 
10-25 (LENGTH-16). 


2. Use two REBUILD statements to replace characters 
10-11 (LENGTH-2) and 24-25 (LENGTH-2). 


DISP (Displacement) Parameter 


The DISP parameter (DISP-position) indicates the position 
of the first character being replaced in the sector. The posi- 
tion of the first character in the sector is 1; the position of 
the second character is 2; and so on. The maximum posi- 
tion is 255. 


Beginning at the position you indicate, the Alternate Track 
Rebuild program replaces the number of characters you 
indicate in the LENGTH parameter. 


Substitute Data 


After each REBUILD statement, you must key the substi- 
tute characters that apply to that statement. The characters 
must be in hexadecimal form. Appendix A shows the hexa- 
decimal forms of the characters in the standard character 
set. 


Include a comma after every second character. For 
example, the data FiF2,F3F4,F5F6 represents 123456. 
F1 is the hexadecimal form of 1; F2 is the hexadecimal 
form of 2; and so on. 


Key only the number of characters you indicated in the 
LENGTH parameter in the REBUILD statement. 
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OCL CONSIDERATIONS 


LOAD Sequence 


Responses @&%) Considerations 





READY LOAD None 

LOAD NAME $BUILD Name of Alternate Track Rebuild program. 

UNIT R1, R2, F1, or F2 Location of disk containing Alternate Track Rebuild 
program. 

MODIFY RUN None 


@ Only the keywords listed here are required. You can bypass the rest. 


@ You end every response by pressing PROG START. 


BUILD Sequence 


Keywords @ Responses ® Considerations 
READY BUILD None 
BUILD NAME procedure name Name by which procedure will be identified in source 
library. 
UNIT R1, R2, F1 or F2 Location of disk containing source library. 
LOAD NAME $BUILD Name of Alternate Track Rebuild program. 
UNIT R1, R2, F1, or F2 Location of disk containing Alternate Track Rebuild 
program. 
MODIFY «Meee RUN* ne Response when not including control statements in =——sss—ste rs 
ee ee Se procedure. 


& Only the keywords listed here are required. You can bypass the rest. 
Q You end every response by pressing PROG START. 


*BUILD does not allow utility control statements in the procedure. 


102 


EXAMPLE 


Correcting Characters on an Alternate Track 


Situation 


Assume that the Alternate Track Assignment program 
printed the following information: 


**SECTOR WITH DATA ERROR** 


TRACK 05020 


ABCDEF GH1 34567890... ¢ (Assume the entire contents of the sector 


B A was printed.) 
6 5 


It means that errors were detected in sector 20 of track 50. 


In checking the characters printed by the program, you 
found that the seventh and eleventh characters in the 
sector are incorrect and you want the operator to run the 
Alternate Track Rebuild program to correct them. 


Alternate Track Rebuild Program ($BUILD) 
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Statements 


READY = 
KHEKKKKK KKK KKEKR KEKE KKEKEEE 


OCL LOAD Sequence, 





010 LOAD NAME = 
Boxed areas are operator responses. 
O11 UNIT oc 
Keywords for which no responses are 
.020 DATE (XX/XX/XX) - shown are the ones bypassed. If you 


press ENTER-— after responding to 
UNIT, the DATE, SWITCH, and FILE 
NAME keywords are not prompted. 


030 SWITCH (00000000) 


040 FILE NAME = 
, RUN is the response to MODIFY 
KHKKKKKKKKKEKKEKKKKEKEKKEREEKK even though the two words do not 
appear on the same line. 
MODIFY 





ENTER '//' CONTROL STATEMENT Message pririted by Alternate Track 
Rebuild program. 
// REBUILD PACK-BILLNG ,UNIT-R1,TRACK-05020 ,LENGTH-6 ,DISP-7 Control 
Message printed by Alternate Track statements 
ENTER HEX DATA STATEMENT Rebuild program. and substitute 
C6C7,C8F1,F2F3 
‘ : data supplied 
ENTER '//' CONTROL STATEMENT Message printed by Alternate Track by the 
// END } Rebuild program. operator 
_ Explanation 


@ Alternate Track Rebuild program is loaded from the fixed disk on drive 1 TUNE ad in nce sequence). — 


@ Thename e of the removable: disk (BILLNG) a and its location anus 1) are indicated in the PACK and UNIT parameters in 
the REBUILD statement. 


@ The sector containing the incorrect characters is sector 20 of the alternate track assigned to track 50 (TRACK-05020). 
The seventh character in the sector is the first character being replaced (DISP-7): 


@ The seventh through twelfth characters in sector 20 are being replaced (LENGTH-6). We included the twelfth character 
because the number of characters being replaced must be a multiple of 2. By also replacing the characters between the 


incorrect ones, we needed only one REBUILD statement. 


© The substitute characters follow the REBUILD statement. They are F (C6), G (C7), H (C8), 1 (F1), 2 (F2), and 3 (F3). .-.-—- 
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You may need to obtain specific information about a file; 
find space available for libraries or new files; or check the 
contents of a disk for libraries, scratch data files, temporary 
data files, or permanent data files. In order to do any of 
these, you need information contained in the volume table 
of contents (VTOC). To obtain this information you must 
use the File and Volume Label Display program. 


FUNCTIONS 
This program allows you to: 
@ Print VTOC information. 


@ Print headings for file information. 


Print VTOC Information 


The VTOC is an area on disk that contains information 
about the contents of the disk. Every disk contains a 
VTOC. The File and Volume Label Display program allows 
you to print this information. 


The printed VTOC information is a readable, up-to-date 
record of the contents of the disk. There can be any num- 
ber of reasons why you might need the information. Some 
of the more common ones are as follows: 


1. Before re-initializing a disk, you might want to check 
its contents to ensure that it contains no libraries, 
permanent data files, or temporary data files. 


2. You want to find out what disk areas are available for 
libraries or new files. 


3. You want specific file information, such as the file 
name, designation (permanent, temporary, scratch), 
or the space reserved for the file. 


Print Headings 


if the file information you requested from the VTOC over- 
flows onto another page, the program prints the headings 
for the information at the top of the next page. It will do 
this for each succeeding new page. 
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OPTIONS 


The File and Volume Label Display program gives you the 
following options: 


i Print the entire Volume Table of Contents (VTOC) 
from a disk. 


2. Print only the VTOC information for certain data 
files. You may specify up to 20 file names in one 
run, 


In both cases, the program also prints the name of the disk. 


Entire Contents of VTOC 


There are many reasons why you may want to print the 

entire VTOC. You may want to check which tracks are 

assigned alternates or how many alternate tracks are still 
available for use. You may also want to check the boun- 
daries of libraries or check for permanent, temporary, or 
scratch data files. 


File Information Only 
You may request information for specific files. You may 
want this information to find out file names, file designa- 


tions, or disk areas reserved for files. You may also use it 
to determine the relationship of multivolume files. 


Number of File Names 


When you specify a file name, you must use the name that 
identifies the file in the VTOC. You are allowed to specify 
up to 20 file names in one program run. 


CONTROL STATEMENTS 


You must supply the following control statements to speci- 
fy the program options you want: 


1. DISPLAY statement — indicates whether you want 
the entire VTOC or specific file information from the 
VTOC. It also indicates the unit of the disk contain- 
ing VTOC information. 


2. END statement — indicates the end of control statements. 
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Control Statement Summary 


Uses Control Statement oe es 


“PARAMETER DESCRIPTIONS 


Print entire // DISPLAY UNIT-code,LABEL-VTOC a = UNIT Parameter 
vToc: // END Doe os 
Print only file // DISPLAY UNIT-code, LABEL: aa le a The UNIT parameter (UNIT-code) indicates the location of 
jaterenation // END _ C Menames ~. the disk containing the VTOC information being printed. 
from VTOC: ~. Codes for the possible locations are as follows: 
@ For each use, the program requires the statements in the ; Code Location 
order they are listed: DISPLAY, END. 
@. The number of filenames you list for a program run may | ae: R1 _ Removable disk on drive 1. 
not exceed 20. (VTOC is considered as one filename.) -.¢ FT > Fixed disk on drive 1. 
. owe RQ Removable disk on drive 2. 
Parameter Summary (Display Statement) need F2_ Fixed disk on drive 2. 
UNIT-code Location of the disk-contain- 


ing the VTOC information 
being printed. Possible codes 
are R1,F1,R2, F2. 





LABEL-VTOC Print entire contents of VTOC. 
LABEL-filename _ Print VTOC information for . 
one file. 


LABEL-'‘filename,filename,...’ Print VTOC information for 
more than one file. The 
number of filenames you list 
for a program run may not 
exceed 20. (VTOC is consi- 
dered as one filename.) 

















LABEL Parameter 


The LABEL parameter indicates the information you 

wanted printed: the entire contents of the VTOC or only 
the information for certain files. The VTOC is an area on 
disk that contains information about the contents of the. 
disk. Every disk, fixed and removable, contains a VTOC. 


An example of a VTOC printout is as follows: 


PACK-11A111 1D-ANDERSUN 

NO. OF ALTERNATE TRACKS AVALLABLE-2 
TRACKS WITH ALTERNATE ASSIGNED-302,200 
DEFECTIVE ALTERNATE TRACKS-395 

DEVICE CAPACI TY-400° 


LIBRARY EXTENT-- START END EXTENDED END 
008 027 027 


AVAILABLE SPACE ON PACK 
LOCATION TRACKS 


028 367 
399 ool 
401 001 


PACK-LLLII11L UNI T-RL DATE 11/11/70 a 
FILE FILE KEEP FILE REC KEY KEY £NEXT AVAIL NEXT AVAIL INDEX DATA VOL 


NAME DATE TYPE TYPe LEN LEN LOC RECORD KEY START END START END SEY 
COST 12/31/23 T $ 0128 405/11/129° 405 405 00 
MASTER 12/31/23 P S 0128 404/ 11/129 404 404 00 
EMPLOYEE 11/14/70 P I 0128 05 0005 *4E% ~402/01/129 402 402 403 403 02 
UPDATE 11/15/70 T I 0128 05 0005 396/11/129 395/0C/185 395 395 396 396 00 
PARTS 12/31/23 T D 0128 eeRE 400 400 O1 
SERTAL 12/31/23 T S 0128 398/11/1L29 398 39% 00 
ADDRESS 12/31/23 T $ 0080 397/06/065 397 397 00 
BACKUP. 12/31/23 S S 0128 399/11/129 399 399 00 
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wh 


The meaning of the VTOC information is as follows: 


Heading Meaning 


PACK-name 
|D-characters 


NUMBER OF ALTERNATE TRACKS 
AVAILABLE-number 


TRACKS WITH ALTERNATE ASSIGNED 
DEFECTIVE ALTERNATE TRACKS 
DEVICE CAPACITY-number 


LIBRARY EXTENT 


START 


END 


EXTENDED END 


AVAILABLE SPACE ON PACK 
LOCATION 
TRACKS 

PACK-name 

UNIT-code 

—DATE-xx/xx/xx— <5 ses 

FILE NAME 

FILE DATE 


KEEP TYPE 


FILE TYPE 
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Name of the disk. 


' Additional disk identification (if any). 


Number of alternate tracks available for assignment. 


Numbers of primary tracks that have been assigned an alternate. 


Numbers of the alternate tracks that are defective. 


Disk drive capacity (number of tracks). 


Boundary of libraries on the disk. (If the disk contains no libraries, these 


- headings are not printed.) 
Track on which library begins. 


Track on which library ends. 


If the disk contains both source and 
object library, START refers to begin- 
ning of source library and END refers 
to end of object library. 


Object library only. Track on which extension to library ends. When 
object library is full, temporary entries can be placed in space following 
end of library, provided that space is available. 


Available disk areas. 
First track in available area. 


Number of tracks available. 


Name of the disk. 


Location of the disk containing the VTOC information. 


Currentsystem date. =o=*=Ss—<“—“<a<a<a<a<a<a<a<a<a<a<a<S*w 


Name that identifies file in VTOC. 


Date given the file when file was placed on disk. 


File designation: 


P 
T 
S 


ll 


permanent 
temporary 
scratch 


File type: 


Ss 
D 
B 


indexed 
sequential 
direct 


BASIC file 


Heading Meaning ; 


REC LEN Number of characters in each record in file. 
KEY LEN Indexed files only. Number of characters in each record key. 
KEY LOC Indexed files only. Position in record occupied by last character of 
record key. 
NEXT AVAIL RECORD Beginning location of next available record in file. Location is track, sector, 


and position within sector. 
EXAMPLE: 099/18/006 = track 99, sector 18, position 6. If the first byte of 
the next available record occurs in the next track after the end track of 
DATA START END then this field will contain ****. 


NEXT AVAIL KEY Indexed files only. Beginning location of next available record key in index 
portion of file. Location is track, sector, and position within sector. 
EXAMPLE: 090/10/006 = track 90, sector 10, position 6. If the first byte of 
the next available key occurs in the next track after the end track of INDEX 
START END, then this field will contain ****. 


INDEX Indexed files only. Tracks on which index starts (START) and ends (END). 
START END 

DATA Disk area reserved for the file. START is the first track of the area. END 
START END is the last track. For indexed files, this refers to the data portion of the file. 
VOL VOL SEO applies to multivolume files only. It indicates the order of this 

SEQ disk as it relates to the other disks containing the remaining portion of the file. 


File and Volume Label Display Program ($LABEL) 109 


OCL CONSIDERATIONS 


LOAD Sequence 
Keywords @ Responses @ Considerations 
READY LOAD None 
LOAD NAME $LABEL Name of File and Volume Label Display program. 
UNIT R1, R2, F1, or F2 Location of disk containing File and Volume Label 
Display program. 
MODIFY RUN None 


@® Only the keywords listed here are required. You can bypass the rest. 


@ You end every response by pressing PROG START. 


BUILD Sequence 


Keywords @ Responses QO Considerations 
READY BUILD None 
BUILD NAME procedure name Name by which procedure will be identified in source 
library. 
UNIT R1, R2, F1, or F2 Location of disk containing source library. 
LOAD NAME $LABEL Name of File and Volume Label Display program. 
UNIT R1, R2, F1, or F2 Location of disk containing File and Volume Label 
Display program. 
MODIFY INCLUDE _ Response when including control statements in... ..- 
Saati ERS ORCS [- ‘utility control statements = —_—sprecedure. 
OR RUN 
RUN Response when not including control statements in 
procedure. 


1) Only the keywords listed here are required. You can bypass the rest. 


® You end every response by pressing PROG START. 
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EXAMPLE 


Printing VTOC Information for Two Files 


Statements 


READY 


KREKEKEKEKKEKRKEKKKKKKKEKKKKKEKE 





010 LOAD NAME 
011 UNIT 
020 DATE (XX/XX/XX) - 


030 SWITCH (00000000) 
040 FILE NAME : & 


RAEKKKKEKRKEKRKEKRKKRKKRKKKKKRKRKKEKE 


MODIFY 





ENTER '//' CONTROL STATEMENT 

// DISPLAY UNIT-R1,LABEL-'BILLNG,INVO1' 
ENTER '//' CONTROL STATEMENT 

// DISPLAY UNIT-F2,LABEL-VTOC 


ENTER '//' CONTROL STATEMENT 
// END. 


Explanation 


OCL LOAD Sequence, 


Boxed areas are operator responses. 


Keywords for which no responses 
are shown are the ones bypassed. 
1f you press ENTER- after 
responding to UNIT, the DATE, 
SWITCH, and FILENAME 
keywords are not prompted. 


RUN is the response to MODIFY 
even though the two words are 
not on the same line. 


Message printed by File and 
Volume Label Display program. 


Control statement supplied by 
operator. 


Sequence repeats until operator 
enters END statement. 


@ The File and Volume Label Display program is loaded from the fixed disk on drive 1 (UNIT-F1 in OCL sequence). 


@ The files for which information is printed are named BILLNG and INVO1 (LABEL-’BILLNG, INVO1’ in first DISPLAY 


statement). They are located on the removable disk on drive 1 (UNIT-R1). 


@ Information from the entire VTOC on F2 is printed. 
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File Delete Program ($DELET) 


You may find that you no longer need the information in a 
file. You can free the space in a file for use by new files by 
using the File Delete program. 


The program may be used on temporary, scratch and 
permanent files. To delete permanent files, you must use 
the File Delete program. You can scratch temporary files 
by using the File Delete program or by changing the file 
designation from temporary to scratch (using the OCL 
keyword RETAIN) when you use the file. 


FUNCTIONS 
This program allows you to: 


© Eliminate file references in the VTOC. 


@ Erase information in a file. 


VTOC File References 


The File Delete program allows you to remove the VTOC 
references to a file by removing the reference (SCRATCH 
statement). However, the file reference is not physically 
removed from the VTOC until normal end of job has 
occurred. 


Erase File Information 


~ You may erase a file from the disk as well as removing the 


file reference in the VTOC (REMOVE statement). This 
may involve erasing the information contained in the file. 
Its space is then made available for any new files. 


OPTIONS 
The File Delete program gives you the following options: 


© You may choose to delete files in one of two ways: 
remove or scratch. , 


© You may delete some or all files from a disk. 


© You may specify up to 40 file names in one job. 
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program. 


You specify the options you want in control statements 
(see Contro/ Statements in this chapter): 


Deleting a File 


If you wish to delete a permanent file, you must use the 
File Delete program. If you delete a temporary file, you 
may use either the File Delete program or change the file 
designation when you use the file. You may either remove 
or scratch a file. No file is physically scratched or removed 
from the VTOC until end of job has occurred. 


Removing a File 


When you remove a file from a disk (REMOVE statement), 
you are removing the file reference from the VTOC. You 
may also erase the data in the file from the disk. 


Scratching a File 


The File Delete program allows you to scratch a file if you 
find you may need to reference it later. The SCRATCH 
statement does not erase files from the disk. It changes 
their designation to scratch (S).in the Volume Table of 
Contents (VTOC). By doing this, the program makes the 
areas that contain the files available for other files or for 
system programs. You can use the file until a permanent 
file is created in its place or it is removed by a system 


A halt will occur if an attempt is made to create a new mul- 
tivolume file that will have the same label on disk as an 
existing single volume file, or an attempt is made to create 
a single volume file bearing the same label as an existing 
multivolume file. The halt will occur even though the exist- 


— ing file is a scratch file. 


Number of Files 


You may remove some or all files on a disk. if a file name 
applies to more than one file, all the files with that name 
are deleted. You can keep this from happening by identify- 
ing the files with both name and date. 


Number of File Names 


You may specify as many file names as the control state- 
ment will allow. If you specify more, you must use more 
than one statement. However, you are only allowed to 
specify 40 file names in one job. 


CONTROL STATEMENTS 


1. REMOVE statement—indicates the name and unit of 
the disk, what files are to be removed, and whether 
or not you are erasing the data for the file. 


2. SCRATCH statement—indicates the name and unit of 
the disk and what files you wish to scratch. 


END statement— indicates the end of control state- 
ments. 


Control Statement Summary 


Use Control Statements @ 


Scratch all // SCRATCH PACK-name, UNIT-code, LABEL-VTOC 
filesinthe // END 
VTOC: 


Scratch only // SCRATCH PACK-name, UNIT-code, LABEL-filename, DATE-date @ 
one filein // END 





the VTOC: 

filename 
Scratch /| SCRATCH PACK-name, UNIT-code, LABEL- { et 
multiple // END 
files in the 
VTOC: 


files from © // END YES 
disk: 


Remove . 9 NO 


NO 
Remove all // REMOVE PACK-name, UNIT-code, LABEL-VTOC, DATA- < or | 


only the —// REMOVE PACK-name, UNIT-code, LABEL- Scone t , DATE-date, DATA- 4 or 
filesnamed // END YES 


from disk: 


ay For each use, the program requires the statements in the order they are listed: SCRATCH, END, or 
REMOVE, END. 


Use this form of the SCRATCH or REMOVE statement when two or more files have the same name and 
you want to delete one of them. 
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Parameter Summary 


| Parameter . Meaning . | 


PACK-name Name of the disk. 
UNIT-code Location of the disk. Possible codes are R1, Fi, R2, F2. 
LABEL-VTOC 


Scratch or remove only the 
file named in the VTOC. 


LABEL-filename 


Scratch or remove ail files from the VTOC. 


Use names that identify files in . 


VTOC. (These are the names ; oe pie 


LABEL-’filename,filename.... Scratch or remove only 
the files named in the 


you gave the files when you | 
placed them on disk.) 


VTOCc. 
DATE-date Date of the file being deleted. Date must be a 6-digit number. 
EXAMPLE: DATE-062070.means June 20, 1970. 
NO ' 
DATA- < or Delete files from disk as well as VTOC. 
YES 


PARAMETER DESCRIPTIONS 


Pack Parameter 


The PACK parameter (PACK-name) tells the program the 
name of the disk that contains the files being deleted. The 
name you supply in this parameter is the one written on 
the disk by the Disk Initialization program. 


The File Delete program compares the name in the PACK 


parameter with the name on the disk to ensure they match. _ 
In this way, the program ensures that it is using the right 


disk. 


Unit Parameter 


The UNIT parameter (UNIT-code) tells the program the 
location of the disk containing the files being deleted. 
Codes for the possible locations are as follows: 


Code Location 
R1 _ Removable disk on drive 1. 
F1 Fixed disk on drive 1. 

-R2 Removable disk on drive 2. 
F2 *Fixed disk on drive 2. 
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Label Parameter 


The LABEL parameter identifies the files you want to 
delete from the disk. Its form depends on the files you are 
deleting: 


Form Files Deleted 
LABEL-VTOC All of them. 
LABEL-filename Only the file that is named. The 


file. If it does, all of those files are 
deleted unless you use a DATE par- 
ameter to identify a particular one. 


LABEL-’filename, 
filename...’ 


Only the files that are named. A 
name can apply to more than one 
file. If it does, all of those files are 
deleted. (You can list as many file- 
names as the statement can hold; 
the statement length, however, is 
restricted to 96 characters. Addi- 
tional REMOVE or SCRATCH 
statements may be used for addi- 
tional filenames. The maximum 
number of files that can be deleted 
in one run is 40.) 


____name can apply to more than one. 





Date Parameter 


The DATE parameter (DATE-date) applies to.two or more’ 
files that have the same name. It.tells the program the date 
of the one you want to delete. 





: ne ’ Data Parameter (REMOVE Statement Only) 


: The DATA parameter lets you delete the files specified dir- 
“s* e¢tly from the disk as well as from the VTOC. 


: If YES is coded in this parameter then the file specified will 


“"" be.removed from the disk and any reference to it in the 


Every file on disk has a date, which is given to the file at 
the time it is created. When two or more files have the same. 
name, the dates are used to tell one file from anotiet 


The date is a six-digit number: two digits for day, two for = 7 ot 
month, and two for year. Day, month, and year can be in bea : 


one of two orders: (1) month, day, year and (2) day, month; ’ 


year. For example 061870 and 180670 both mean June = = : : 


18, 1970. 


: “ VTOC will be removed. 





In addition, a message will be 
printed on the system logging device for each file removed 


ae? es from the disk in this format: 


‘DATA REMOVED FOR FILE XXXXXX 
DATE 000000’ 


DATA-YES should be used only if file security is required. 


“The time needed to remove the data is much greater than 
, oo. the time needed to remove the VTOC entry. 

In the DATE parameter, be sure to specify day, month, and .:-: 

year in the same order as when you placed the file on disk.. vee 


If NO is coded in this parameter, then the file speci ied will 


oo _not be removed from the disk. However, any reference to 





_used, DATA-NO is assumed. 


it in the VTOC will be removed. If this parameter is not 
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OCL CONSIDERATIONS 


LOAD Sequence 

Keywords @ Responses @ Considerations 

READY LOAD None 

LOAD NAME _ $DELET Name of File Delete program. 

UNIT R1, R2, F1, or F2 Location of disk containing File Delete program. 
MODIFY RUN . None 


@ Only the keywords listed here are required. You can bypass the rest. 


@ You end every response by pressing PROG START. 


BUILD Sequence 








Keywords (4) Responses @ Considerations 
READY BUILD None 
BUILD NAME procedure name Name by which procedure will be identified in source 
library. 
UNIT R1, R2, F1, or F2 Location of disk containing source library. 
LOAD NAME $DELET Name of File Delete program. 
UNIT R1, R2, F1, or F2 Location of disk containing File Delete program. 
MODIFY INCLUDE Response when including control statements in 
I suites control statements procedure. 
OR RUN 
RUN Response when not including control statements 


in procedure. 





Only the keywords listed here are required. You can bypass the rest. 


@Q ‘You end every response by pressing PROG START. 
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EXAMPLE 


Deleting One of Several Files Having The Same Name 


Situation 
Assume that three files on a removable disk have the same name: INV01. The dates of these files are 6/16/70, 8/18/70, and 
11/15/70. You want to delete the 6/16/70 version. 


Statements 


READY 
KKKKKKKKKEKKKKEKEKKERKEKKKEE 


OCL Load Sequence 





010 LOAD NAME 
011 UNIT Boxed areas are operator responses. 
020 DATE (XX/XX/XX) - Keywords for which no responses are 


shown are the ones bypassed. If you 
press ENTER-— after responding to 
UNIT, the DATE, SWITCH, and FILE 
040 FILE NAME - NAME keywords are not prompted. 


030 SWITCH (00000000) 


PEELE SEE SAA RS REL ee eee RUN is the response to MODIFY 


even though the two words do not 
MODI PY appear on the same line. 









ENTER '//' CONTROL STATEMENT Message printed by File Delete program. | 
Controi statement 


// SCRATCH PACK-00001,LABEL-INV01,UNIT-R1,DATE-061670 supplied by 


operator. 
ENTER '//' CONTROL STATEMENT t Sequence repeats until operator 
// END enters END statement. 
Explanation 


@ File Delete program is loaded from the fixed disk on drive 1 (UNIT-F1 in OCL sequence). 
@ Disk that contains the file being deleted is named 00001 (PACK-00001 in SCRATCH statement). 


@ Because two other files have the name INV0O1, the date (061670) is needed to complete the identification of the file 
you want to delete (LABEL-INV0O1 and DATE-061670). 


@ The removable disk containing the file to be deleted is on drive 1 (UNIT-R1). 
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Removing One File 


Situation 


You want to remove a file named INVO2 from the pack mounted on R1. 


Statements 


READY 


RKKEKKKKEEEKREKREKEKKEREKRRKEKEKER 


OCL Load Sequence. 





010 LOAD NAME 
Boxed areas are operator responses. 
O11 UNIT : 
Keywords for which no responses are 
020 DATE (XX/XX/XX) - 


shown are the ones bypassed. If you 
press ENTER-— after responding to 
UNIT, the DATE, SWITCH, and FILE 
NAME keywords are not prompted. 


030 SWITCH (00000000) - 








040 FILE NAME - 
KKKKKKKKKEKRKEKKEKKEKKK KKK RUN is the response to MODIFY 
even though the two words do not 
MODIFY appear on the same line. 
ENTER '//' CONTROL STATEMENT Message printed by File Delete program. 


// REMOVE PACK-00001,LABEL-INV02 ,UNIT-R1,DATA-YES | ee sup pIeS 


‘DATA REMOVED FOR FILE INVO2 DATE 000000' { Printed by File Delete. 


: : Sequence repeats until operator 
ENTER '//' CONTROL STATEMENT { cite END statement, 
// END 

Explanation 

@ File Delete program is loaded from the fixed disk on drive 1 (UNIT-F1 in OCL sequence). 

® Disk that contains the file being removed is named 00001 (PACK-00001 in REMOVE statement). 
© The removable disk containing the file to be removed is on drive 1 (UNIT-R1). 


© DATA-YES indicates that the file data as well as the file VTOC reference is to be removed. 
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You might need to check records in a file for errors. In 
order to do this you need to print a copy of the file. It is 
important to provide a reserve disk, diskette, or permanent 
data files in case something happens to the original disk, 
diskette, cards or files. You can copy the disk, diskette, 
cards, or file using the Copy/Dump program?. 


FUNCTIONS 


Copying a disk or disk file involves: 
Identifying disk or file locations in OCL. 
Using a work area. 


Copying diskette or card files involves: 
Identifying the device in the control statement. 


Printing a file involves: 
Identifying the portion to be printed. 
Printing record key or relative record numbers. 


Disk or File Location 


In order to copy a disk or file, you must specify the unit on 
which the disk or file is located and the unit to which it is 
to be copied. You can copy a file from one disk to another 
or from one area to another on the same disk. 


Using a Work Area 


When you are copying a file from one removable disk to 
another removable disk but have only one disk drive 

(R1 and F1), you must use a work area on the fixed disk 
on drive one. The disk you copy from must be a removable 
disk. The data from the file you are copying is transferred 
to the work area on the fixed disk where it remains until 
another removable disk is mounted. This is the removable 
disk to which the data is copied. 


If you are copying a file from one area on a removable disk 
to another area on the same disk you need not use a work 
area on the fixed disk. 





1The Copy/Dump program can be called by either the name 
$COPY or the name $KCOPY. 


Copy/Dump Program ($COPY) 


Identifying the Device 


In order to copy a diskette or card file, you must identify 
the device and indicate if it is an input or output file on 
the control statement. You can copy all or part of a file. 


Copying a Portion of a File 


You can copy all or part of a file. 


Printing a Portion of a File 


You can print all or part of a file. 


Record Keys and Relative Record Numbers 


For indexed files the Copy/Dump program will print each 
record key (used to access the record) followed by the 
contents of the record. The records are printed either in 
the order their keys appear in the index portion of the file 
or as they appear in the file itself. For sequential and dir- 
ect files, a record is printed with its relative record number 
(used to access the record) preceding the record. The 
records are printed in the order they appear in the file. 
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OPTIONS 


The Copy/Dump program allows you the following options: 


® Copy an entire disk or a file. 
© Copy part of a file. 


@ Copy all or part of a data file from disk, diskette or 
cards to disk, diskette or cards. 


® Print part or all of a file. 
© Delete records from a file. 
@ Reorganize a file. 


You specify the options you want in control statements 
(see Control Statements in this chapter). 


Copying and Printing 


You can specify any of the following copy or print 
combinations: 


© Copy an entire disk. 

@ Copy a data file. 

@ Copy a part of a data file. 

© Copy and print a data file. 

@ Copy a data file, but print only part of the file. 

@ Copy and print only part of a file. 

@ Print an entire data file. 

@ Print only a part of a data file. 

On a Model 6 with 8K of main storage, a halt may occur if 
all options on a COPYFILE are specified for files with large 
records (256-bytes). This halt (A234) occurs because not 
enough main storage is available. To avoid this halt, con- 
sider the following changes to the COPYFILE statement: 
1. Specify OUTPUT-DISK instead of OUTPUT-BOTH. 
2. Specify REORG-NO instead of REORG-YES. 


3. Specify OMIT- instead of DELETE-. 
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Copying Entire Disk 


When copying a disk, Copy/Dump program transfers the 


~ contents of the disk to another disk. The contents of the 


two disks will be the same, except for the disk names and 
alternate track information, which may be different. 


The disk you are copying can contain libraries or data files 
or both. The disk that is to contain the copy must not 
have libraries, temporary data files, or permanent data files. 


The program can copy the contents of the removable disk 
to another using one disk drive. The drive, however, must 
be drive 1. To do this, the program uses available space on 
the fixed disk on drive 1. It fills the available space with 
information from the disk you are copying. Then it prints 

a message telling the operator to mount the other removable 
disk (the one to contain the copy) on drive 1. After trans- 
ferring the information from the fixed disk to the removable 
disk, the program prints another message telling the operator 
to remount the disk you are copying. The program repeats 
this procedure until al! information has been transferred. 


Until the contents of the disk are completely copied on the 
new disk, portions of the new disk are changed to prevent 
accidental usage of a partially filled disk. Therefore, if the 
copying process is stopped before it is completed, the pack 
is unusable. You can restart the copying process by reload- 
ing the copy program or you can restore the disk by 
reinitializing. 


After a successful copy the copy program prints a message: 


COPYPACK IS COMPLETE 


Copying Files 


The Copy/Dump program can copy a file from disk, cards, 
or diskette to disk, cards, or diskette, or from one area to 
another on the same disk. 


The program can copy a file from one removable disk to 
another using one disk drive. The drive, however, must be 
drive 1. (See WORK Parameter in this section for more 
information.) 


Your responses to the OCL Keywords prompted for the 

. Copy/Dump program indicate (1) the name and location 
of the disk file being copied and (2) the name and location 
of the disk file being created. See OCL Considerations in 
this section. 


Note: An OCL statement is not required for a card or disk- 
ette file. The COPYFILE control statement describes card 
or diskette files. 


In copying a file, the program can omit records. (See 
DELETE Parameter in this section for more information.) 


In copying an indexed file, the program can reorganize — 
records in the data portion such that they are in the same 
order as their keys are listed in the index. (See REORG 
Parameter in this section for more information.) 


Printing Files 


The program can print all or part of the data file. To print 
only part, the program needs a SELECT control statement. 
(See SELECT KEY and PKY Parameters and SELECT 
RECORD Parameters in this section.) If you do not use a 
SELECT statement, the entire file is printed. 


If you use SELECT KEY (or PKY) or REORG-YES, 
records from indexed files are printed in the order their 
keys appear in the index portion of the file; otherwise, 

they are printed as they appear in the file. For each record, 
the program prints the record key followed by the contents 
of the record. 


Records from sequential and direct files are printed in the 
order they appear in the file. For each record, the program 
prints the relative record number followed by the contents 
of the record. 


The program uses as many lines as it needs to.print the con- 
tents of arecord. If OUTPUT- is specified, only printable 
characters are printed. If OUTPTX- is specified, all charac- 
ters are printed with their 2-digit hexadecimal value. 
Appendix A lists the hexadecimal values for characters in 
the standard character set. 


The following is an example of the way the program prints 
a 20-character record when OUTPUT- is specified: 


ABCDE GHIJ12345 


If OUTPTX- is specified, the same record would be printed: 


ABCDE GHIJ12345 
CCCCCBCCCDFFFFF44444 
12345678911234500000 


After printing the last record, the printer triple-spaces and 
prints the following message: 


(number) RECORDS PRINTED 


Deleting Records 


If you want to delete records from a file while copying or 
printing, you must indicate the type of record you want to 
omit. To do this, you must specify the position of the - 
character in the records (maximum position 9999) and the 
identifying character (any of the standard System/3 charac- 
ter set except commas, apostrophes, and blanks). The 
records that are deleted are printed. When the records of a 
file are being printed, the deleted records are indicated. 


Reorganizing a File 


When you are copying an indexed file you can reorganize it. 
The records in the data portion are put in the same order as 
their index keys leaving the original of the file you are copy- 
ing unaffected. {f you are both copying and printing an in- 
dexed file, you must specify reorganization. 
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COPYING MULTIVOLUME FILES 


When copying multivolume files, the first volume of the 
input file has to be online when the job is initiated. 


Maintaining Correct Date and Volume Sequence Numbers 


To maintain the correct date and volume sequence numbers 
you must: 


@ Copy all the volumes of the file in one execution of 
$COPY, or 


@ Copy only one volume of the file in each execution of 
$COPY. 


For example, if you copy a 3-volume file one volume at a 
time (volume 1 in the first execution, volume 2 in the 
second execution, and volume 3 in the third execution), 

the output file volumes will retain the original input date 
and volume sequence numbers. Or, if you copy all the 
volumes (1, 2, and 3) in the same execution, the system 

will assign the current system date and new volume sequence 
numbers in the output file. However, if you copy only 
volumes 2 and 3 in one execution, the output file volumes 
will be assigned the current system date and volume sequence 
numbers 1 and 2. 


Maintaining Correct Relative Record Numbers 


To maintain correct relative record numbers when copying 
one volume of a multivolume direct file, the size of the 
output volume must be the same size of the input volume. 
(If you want to increase the size of a file, you must copy 
the entire file.) If, for example, you copy the first volume 
of a 2-volume file and increase the number of records on 
that volume, you are also increasing relative record numbers 
of all the records on the next volume. Therefore, output 
and input volume extents must be equal if you are copying 
only one volume of a multivolume direct file. 


Note: You cannot use the copy program to copy a single 
volume file to a multivolume file. End of extents will 
probably occur after the first volume of output. If the 
output file is a new file, the copy program will not create 
it as a multivolume file. 
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Direct File Attributes 


If you copy a whole multivolume direct file in one run, the 
output file will be given sequential attributes in the Volume 
Table of Contents (VTOC). However, this does not affect 
file processing. A file with either sequential or direct attri- 
butes can be accessed by a consecutive or direct access 
method. If only one volume is copied, the direct attribute 
will be maintained. 


Copying Multivolume Index Files 


If you want to copy a multivolume indexed file, REORG- 
YES must be given. Since an unordered multivolume indexed 
load is not permitted, a REORG-NO will cause a halt if an 
out-of-sequence record is found. If you would prefer not to 
reorganize the file, each volume of the file must be copied as 
a single volume file. When copying each volume separately, 
it can be either ordered or unordered. When copying one 
volume of a multivolume indexed file, either REORG-YES 
or REORG-NO may be specified. HIKEY parameter(s) of 
the output file must be the same as the highest key(s) of 
each input volume. 


CONTROL STATEMENTS 


You must supply the following control! statements to 
specify the program options you want: 


1. COPYPACK statement—indicates that an entire disk 
is to be copied. It contains the unit of the disk to 
be copied and the disk to which the copying is being 
done. 


2.  COPYFILE statement—indicates that all or part of a 
data file is being copied or printed or both, whether 
the file is to be reorganized, and whether any records 
are to be deleted. 


3. SELECT KEY (or PKY) statement—indicates, 
according to record keys, which part of an indexed 
file you want copied or printed. The SELECT PKY 
parameter applies to selecting part of an indexed 
file that contains packed keys. 


4. SELECT RECORD statement-—indicates, according 
to relative record numbers, which part of a file you 
want copied or printed. 


5. KEY statement—indicates that an indexed file will be 
built from a sequential file. 


6. END statement—indicates the end of control 
statements. 


Copy/Dump Program (SCOP Y) 
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Contro! Statement Summary 


Uses @ 


Copy an Entire Disk 


_Copy a Data File: 


Copy and Print 
a Data File: 


Copy a Data File, 
But Print Only a 
Part of the File: 


Print an Entire Data 
File: 
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Contro! Statements @ 
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SELECT RECORD,FROM—number, TO—number 


SELECT PKY, { sas rey @ 


SELECT PKY,FROM—"key’,TO—'key' @ 


END 
OUTPTX— 3741 

COPYFILE cca PRINTINPUT—4 BREAGE \ |LENGTH-number @ 

END 


Uses @ 


Print’Only a Part 
of a Data File 


Print and Copy 
a Part of a Data 
File 


Copy a Part of 
a Data File 


Control Statements @ 
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Uses 0 Control! Statements ® 


FILE 

Building an OUTPTX— PUT— 3741 7 

Indexed File // COPYFILE (eure DISK ¢ ,INPUT—4¢ Ft ngg ¢ LENGTH—number @ 
BOTH 

froma 

oe /| KEY LENGTH—number,LOCATION—number 

Wwe 

// END 


The program uses include the possible combinations of copying and printing files. 


For each use, the program requires the contro! statements in the order they are listed: COPYPACK, END; COPYFILE, END; 
COPY FILE,SELECT,END,COPYFILE,KEY,END; and COPYFILE,SELECT,KEY,END. 


Needed only if you want to delete a certain type of record. DELETE cannot be used with direct files. 


Applies only to indexed files. When OUTPUT-BOTH is specified, REORG-YES is required. 


Optional when using the 3741 for input or output. The record length defaults to 96 if LENGTH is not specified. 


Identifies the portion you want to print. 


Index files with packed keys. 


WORK-YES is required if you are copying the file from one removable disk to another removable disk using the same disk 
drive (drive one). WORK-NO may be used, but is not required, if you are copying the file from one area to another on the 
removable disk on drive one. 


6980 060 O86 
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Parameter Summary 


COPYPACK Statement Parameters Meaning 


FROM-code 


TO-code 


COPYFILE Statement Parameters 


OUTPUT-DISK 


OUTPUT-FILE 


3741 
OUTPUT- \ SATAGE \ 


OUTPUT-PRINT 


OUTPUT-BOTH 


‘PRINT,3741' 
ourput-{ ‘PRINT,DATAQ6’ 
PRINT 
BOTH 
Our ‘PRINT,3741' 


‘PRINT,DATAQE6'. 


3741 
INPOTs { DATAQ6 \ 


LENGTH-number 


DELETE-‘position,character’ 
-or- 
OMIT-’position,character’ 


REORG-NO @ 


REORG-YES ® 


WORK-NO 





WORK-YES (@ 





Location of disk to be copied. Possible codes are R1, F1, R2, F2. 


Location of disk to contain the copy. Possible codes are R1, F1, R2, F2. 


Copy the file from one disk to another, or from one area to another on the same disk. @ 


Copy the file from one disk to another, or from one area to another on the same disk (inter- 
changeable with OUTPUT-DISK). 


Copy the file to the device specified. When this parameter is used, a COPYO file statement 
must not be used. 


Print the entire file or only part of the file. @ 


Copy the file from one disk to another, or from one area to another on the same disk. @ 
Also print the entire file or only part of it. 


Copy the file to the device specified and print all or part of the file. When this parameter is 
used, a COPYO file statement must not be used. 


‘Printed output will be displayed in hexadecimal values. If 3741 or DATASQ6G is used, a COPYO 


file statement must not be used. ‘BOTH’ refers to printer and disk. 


Copy the file from the device specified. If this keyword is used, a COPYIN file statement must 
not be. used. 


Specifies the record length for the 3741. Number must be an integer from 1 to 128. If this key- 
word is not specified, a record length of 96 will be assumed. It will be ignored if used with any 
other device. 


These parameters are optional. It means that all records with the specified character in the specified 
record position are deleted. DELETE causes deleted records to be printed. OMIT causes deleted 
records not be printed. Position can be any position in the record (the first position is 1, second 2, 
and so on). The maximum position is 9999. 


Indexed files only. Copy records in the same way as they are organized in the original! file (the file 
from which thé records are copied). 


Indexed files only. Reorganize the records so that the records in the data portion of the file are in 
the same order as their keys are listed in the index. 


May be used, but is not required, for copying a file from one area to another area on the same 
removable disk on drive one (R1). It means: do not use a work area. 


Required for copying a file from one removable disk on drive one to another removable disk on that 
drive. It means: use a work area on the fixed disk on drive one. 
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SELECT Statement Parameters Meaning 


} KEY 


,FROM-‘key’ 
PKY 


RECORD,TO-number 


are |FROM-‘key’,TO-’key’ 


PKY 


RECORD,FROM-number 


KEY »TO-‘key’ 


PKY 


RECORD,FROM-number, 
TO-number 


FILE-YES 


FILE-NO 


KEY-statement 
LENGTH-number 


LOCATION-number 


Indexed files only. Print or copy only the part of the file from the record key that is specified in 
the FROM parameter to the end of the file. 


Print or copy only the part of the file from the start of the file to the record number specified 
in the TO parameter. 


Indexed files only. Print or copy only the part of the file between the two record keys that 
are specified in the FROM and TO parameters (including the records indicated by the parameters). 
To print or copy only one record, make the FROM and TO record keys the same. 


Print or copy only the part of the file from the relative record number specified in the FROM 
parameter to the end of the file. 


Indexed files only. Print or copy only the part of the file from the start of the file to the record 
key specified in the TO parameter. 


Print or copy only the part of the file between the relative record numbers indicated by the 
parameters (including the records indicated by the parameter). To print or copy only one record, 
the FROM and TO record keys should be the same. 


Only selected records are copied to the file named in the COPYO file statement or to the device 
(3741 or DATAQ6) specified in the OUTPUT keyword parameter of the // COPYFILE control 
statement. The file will be sequential if no // KEY statement is used. Whena // KEY statement 
is used, the output file will be indexed and the device specified in the COPYO file statement must 
be a disk. 


Only selected records are printed if OUTPUT-PRINT is used. If OUTPUT-BOTH is used, selected 
records are printed and the entire file is copied to the file named in the COPYO file statement or 
the device (3741 or DATAQ6) specified in the OUTPUT keyword parameter of the // COPYFILE 
control statement. 


Identifies the length of the key field. The number can be from 1 to 29. 


Identifies the starting location of the key field in the input record. The number can be from 1 to 
16,384. 


@ In the OCL load sequence, the operator indicates which file is to be copied or printed unless the files are 3741 or DATAQ6. For 
files being copied, he must also indicate whether the file is being copied from one disk to another or from one location to another 
on the same disk using the COPYO and COPY'IN file statements. COPYO and COPYIN file statements are invalid for 3741 and 
DATAS96. For 3741 and DATAQ6, the INPUT and OUTPUT keywords in the // COPYFILE statement are used. 


@ 


required. 


© 
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’ REORG-NO is assumed if you omit the REORG parameter. When OUTPUT-BOTH is used for indexed files, REORG-YES is 


lf the WORK keyword is not specified, NO is assumed. 


PARAMETER DESCRIPTIONS 
FROM and TO Parameters (COPYPACK Statement) 


The COPYPACK statement is used to copy the contents of 
one disk to another. It has two parameters: FROM and 
TO. They tell the program the locations of the two disks 
on the disk units. 


The FROM parameter (FROM-code) indicates the location 
of the disk you are copying. The TO parameter (TO-code) 
indicates the location of the disk that is to contain the 


copy. 


Codes for the possible locations are as follows: 


Code Location 

R1 Removable disk on drive 1. 
F1 Fixed disk on drive 1. 

R2 Removable disk on drive 2. 
F2 Fixed disk on drive 2. 


OUTPUT Parameter (COPYFILE Statement) 


The OUTPUT parameter is used when copying and printing 
card, diskette, or disk data files. It indicates whether you 
want the program to copy, print, or copy and print a file. 


The OUTPTX parameter can be used to display printed out- | 


put in hexadecimal values. 


The parameter OUTPUT-DISK or OUTPUT-FILE means to 
copy the file to disk. OUTPUT-PRINT means to print the 
file; OUTPUT-BOTH means to copy and print the file. 
OUTPUT-DATAS6 or OUTPUT-3741 means to copy the 
file to the device named in the keyword parameter. OUT- 
PUT-’PRINT,DATA96’ or OUTPUT-’PRINT,3741’ means 
to copy and print the file to the device named in the key- 
“word parameter and print the file. 


The output file must be a new file when copying to disk 
unless the existing file you are copying over is a temporary 
file in which case the following rules apply. 


1. lf RECORDS were used to create the existing tempor- 
ary file then the COPYO file card must specify 
RECORDS and LOCATION. RECORDS must be 
equal to the number used to create the original file. 


2. If TRACKS were used to create the existing tempor- 
ary. file then the COPYO file card must specify 
TRACKS and LOCATION. TRACKS must be equal 
to the number used to create the original file. 


INPUT Parameter (COPYFILE Statement) 


The INPUT parameter is used when copying from either 
the 3741 or the DATA96. INPUT-3741 or INPUT- 
DATAQ6 indicates that the input file to be copied is on the 
device named in the INPUT keyword parameter. 


LENGTH Parameter (COPYFILE Statement) 


This parameter identifies the record length for the 3741 

and is any number from 1 to 128. This keyword is optional 
whether the 3741 is being used as input or output. If this 
parameter is not specified, the record length defaults to 96. 


When the 3741 is used, the length parameter must be equal 
to the record length in the HDR1 !abel on the 3741 and is 
any number from 1 to 128. 


When the 3741 is used as output and the input is disk or 
DATAQ6, the LENGTH parameter can be any number 
from 1 to 128 regardless of the record length of the disk 
INPUT device. If the record length specified on the 3741 
is greater than the record length from the input file, the 
remainder of the record will be filled with blanks (X‘40’). 
If the record length from the disk, card or tape file is great- 
er than the LENGTH specified, the record is truncated. 


This keyword will be ignored if used with a device other 
than a 3741. 
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DELETE Parameter (COPYFILE Statement) 


In copying a data file, the Copy/Dump program can omit 
records of one type. The DELETE parameter identifies the 
type of records. Use of the DELETE parameter is optional. 
If you do not use it, no records are deleted. 


The. form of the parameter is DELETE-'‘position,character’. 
Position is the position of the character in the record. It 
can be any position in the record (the first position is 1, 
the second 2, and so on) up to the maximum position of 
9999. Character is the character, except for apostrophes, 
blanks, or commas, that identifies the record. For example, 
with the parameter DELETE-’100,R’, all records with an R 
in position 100 are deleted. By specifying the hexadecimal 
code for the character, any character (including apostrophes, 
blanks, commas, and packed data) can be used to identify 
the record to be deleted. For example, with the parameter 
DELETE-’100,X40’, all records with a blank (hexadecimal 
40) in position 100 are deleted. 


Deleted records are always printed. If you are both copy- 
ing and printing a data file, deleted records are printed with 
the other records that are printed. The deleted records are 
preceded by the word DELETED. 


The OMIT keyword can be used instead of DELETE. The 
deleted records are not printed if OMIT is used. 


REORG (Reorganize) Parameter (COPYFILE Statement) 


In copying an indexed file, the program can reorganize the 
file, such that the records in the data portion are in the 
same order as their keys in the file index. The REORG 
parameter tells the program whether or not to reorganize 
the file. 


REORG-YES means to reorganize. REORG-NO means 
not to reorganize. REORG-NO is assumed if you omit the 
keyword. 


If you tell the program to reorganize the file, the reorgani- 
zation applies to the copy of the file rather than the original 
file. The original file is not affected. 


Reorganization (REORG-YES) is required any time you 
are both copying and printing an indexed file (OUTPUT- 
BOTH). 


WORK Parameter (COPYFILE Statement) 


The WORK Parameter applies to copying a data file from 
one removable disk to another removable disk using the 
same disk drive (drive 1). It tells the program whether or 
not to use a work area on the fixed disk on drive 1. 


The parameter WORK-YES means to use a work area. 
WORK-NO means not to use a work area. 


Note: The following vable shows the maximum number 
of volumes that can be copied in one run using the WORK 
parameter: 


Single- 
Volume Multivolume Consecutive 
Indexed indexed or Direct 
Parameter Files Files Files 
WORK-YES__ 19 volumes Q9volumes - 19 volumes 
WORK-NO 20 volumes 10volumes 20 volumes 
Work Area 


If you have only one disk drive (R1 and F1), acommon 
use of the Copy/Dump program might be to copy a file 
from one removable disk to another removable disk. To 


do this, the program must use a work area on the fixed 
disk. 


SELECT KEY and PKY Parameters (SELECT Statement) © 


The SELECT KEY and SELECT PKY parameters apply to 
copying part of an indexed file. The parameters are FROM 
and TO. 


The FROM parameter (FROM-’key’) gives the key of the 
first record to be selected. The TO parameter (TO-‘key’) 
gives the key of the last record to be selected. The record 
key between those two in the file index identify the remain- 
ing records to be selected. If you want to select only one 
record, use the same record key in both the FROM and TO 
parameters. 


For example, the parameters FROM-‘000100’ and 
-TO-'000199’ mean that records identified by keys 000100 
through 000199 are to be selected. 


If the file index does not contain the key you indicate in 
a FROM parameter, the program uses the next higher key 
in the index. 


~ You can omit the FROM or the TO parameter, but not 
both. If you omit the FROM parameter, the program 
assumes that the first key in the index is the FROM key. 
If you omit the TO parameter, the program assumes that 
the last key in the index is the TO key. 


With the SELECT KEY parameter (but not PKY) you can 
use less characters in the FROM or TO parameter than are 
contained in the actual keys. If you do, the program ignores 
the remaining characters in the key. The number of charac- 
ters used in the FROM and TO parameters need not be the 
same. 


For example, assume that.the following are consecutive . 
record keys in an index: 99999, A1000, A1119, A1275, 
A1900, A1995, and A2075. The parameters FROM-’A1’ 
and TO-‘A199’ refer to record keys A1000 through A1995. 


If none of the keys in the file index begin with the charac- 
ters you indicate ina FROM parameter, the program uses 
the key beginning with the next higher characters. 


For example, assume that four consecutive record keys in 
an index begin with these characters: A1,A2,A8, and B1. 
The parameters FROM-’A3’ and TO-’AQ’ would refer to . 
the key beginning with the character A8. 


SELECT RECORD Parameters (SELECT Statement) 


The SELECT RECORD parameters can apply to any file, 
but are normally used for sequential and direct files. These 
parameters use relative record numbers to identify the 
records to be selected. 


Relative record numbers identify the record’s location with 
respect to other records in the file. The relative record 
number of the first record is 1, the number of the second 
record is 2, and so on. 


The SELECT RECORD parameters are FROM and TO. The 
FROM parameter (F ROM-number) gives the relative record 
number of the first record to be selected. The TO parameter 
(TO-number) gives the number of the last record to be selec- 
ted. Records between those two records in the file are also 
selected. If you want to select only one record, use the 
same record number in the FROM and TO parameters. 


For example, the parameters FROM-1 and TO-30 mean that 
the first thirty records (1-30) in the file will be selected. 


You can omit the FROM or the TO parameter, but not 
both. If you omit the FROM Parameter, the program 
assumes FROM-1. If you omit the TO parameter, the pro- 
gram assumes that the number of the last record in the file 
is the TO number. | | 


Note: The maximum number allowed is 16,777,215. 


FILE Parameter (SELECT Statement) 


This parameter allows only selected records to be copied to 
a disk, card, diskette or printer. 
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LENGTH and LOCATION Parameters (KEY Statement) 


The KEY statement is used when building an indexed file 
from a sequential file. The LENGTH parameter specifies 
the length (1 to 29) of the key field. The LOCATION 
parameter specifies the starting location (1 to 16384) of 

the key field in the input record. When the KEY statement 
is used, the file described in the COPYO file statement must 
be a disk file; and OUTPUT-DISK, OUTPUT-FILE or 
OUTPUT-BOTH must be specified in the COPYFILE control 
statement. 
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CARD AND DISKETTE CONSIDERATIONS ($COPY):_ . 
Card or Diskette Input 


For card or diskette input files, end-of-file will be deter- 
mined by the presence of a record with /* in positions 1 
and 2 and positions 3 through 80 or 3 through 96 or 3 
through 128 blank. This allows a card or diskette input 
file to contain /* records, assuming that at least one charac- 
ter is in positions 3 through 80, 3 through 96 or 3 through 
128. A/& is handled the same as a /* record unless the 
input device is the system READER. The presence of a 
record with /& in positions 1 and 2 from the system 
READER will be regarded as absolute end of file. 


Card or Diskette Output 


If the input record size (in bytes) is greater than the size 

of the card or diskette record, the input record will be 
truncated. !f the input record size is less than the size of 
the card or diskette record, the remaining portion of the 
card or diskette record will contain blanks. For example, 

if the input file contains 60-byte records, the card will con- 
tain blanks in columns 61 through 80 or 61 through 96 or 
61 through 128. The diskette will be blank in the remaining 
portion of the record length specified. 


OCL CONSIDERATIONS 


LOAD Sequence for Copying an Entire Disk 


Keywords eS Responses @ Considerations 


READY 
‘LOAD NAME 
UNIT 


MODIFY 


LOAD 
$COPY 
R1, R2, F1, or F2 


RUN 


None 
Name of Copy/Dump program. 
Location of disk containing Copy/Dump program. 


None 


@ Only the keywords listed here are required. You can bypass the rest. 


® You end every response by pressing PROG START. 


BUILD Sequence for Copying an Entire Disk 


Considerations 





Keywords @ 


READY 


BUILD NAME 


UNIT 
LOAD NAME 
UNIT 


MODIFY 


Responses 


BUILD 


procedure name 


R1, R2, F1, or F2 


$COPY 


R1, R2, F1, or F2 


INCLUDE 
es control! statements 


OR RUN 


Lei 


None 


Name by which procedure will be identified in source 
library, 


Location of disk containing source library.. 

Name of Copy/Dump program. 

Location of disk containing Copy/Dump program. 
Response when including control statements in 


procedure. 


Response when not including control statements in 
procedure 


@ Only the keywords listed here are required. You can bypass the rest. 


@ You end every response by pressing PROG START. 
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LOAD Sequence for Copying or Printing Files. 


Keywords @ 


READY 
LOAD NAME 
UNIT 


FILE NAME 


UNIT 
PACK 
LABEL 


FILE NAME 


OR 


Responses @ 


LOAD 
$COPY 
R1, R2, F1, or F2 


COPYIN 


R1, R2, F1, or F2 
disk name 
file name 


COPYO 


te Press PROG START 


UNIT 


PACK 


LABEL 


RECORDS or TRACKS 


RETAIN 


MODIFY 


Ri, R2, F1, or F2 


disk name 


file name 


number 


T,P,orS 


RUN 


Considerations 


None 
Name of Copy/Dump program. 
Location of disk containing Copy/Dump program. 


Name Copy/Dump program uses to refer to file to be 
copied (input file). - 


Location of disk containing file to be copied. 
Name of disk containing file to be copied. 
Name by which file to be copied is identified on disk. 


Name Copy/Dump program uses to refer to output file 
being created. 


If you are only printing records from a file, press PROG 
START instead of typing COPYO. The next keyword 
prompted will be MODIFY. 


Location of disk on which output file is to be created. 


Name of disk on which output file is to be identified on 
disk. 


Name by which output file is to be identified on disk. 


Size of output file expressed either as number of records 
(RECORDS) or number of disk tracks (TRACKS). 


Designation (temporary, permanent, or scratch) of 
output file. 


None 


oO Only the keywords listed here are required. You can bypass the rest. 


Q You end every response by pressing PROG START. 
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BUILD Sequence for Copying or Printing Files 


, Keywords @p Responses 2) Considerations 


READY BUILD 

BUILD NAME procedure name 

UNIT R1, R2, F1, or F2 
. LOAD NAME $COPY 

UNIT R1, R2, F1, or F2 

FILE NAME COPYIN 

UNIT R1, F1, R2, or F2 

PACK disk name 

LABEL file name 

FILE NAME COPYO 

OR 
aa PROG START 

UNIT Ri, R2, F1, or F2 

PACK disk name 

LABEL file name 

RECORDS or TRACKS number 

RETAIN T,P,orS 

MODIFY INCLUDE 

| wiiliey control statements 
OR RUN 
RUN 


None 


Name by which procedure will be identified in source 
library. 


Location of disk containing source library. 
Name of Copy/Dump program. 
Location of disk containing Copy/Dump program. 


Name Copy/Dump program uses to refer to file to be 
copied (input file). 


Location of disk containing file to be copied. 
Name of disk containing file to be copied. 
Name by which file to be copied is identified on disk. 


Name Copy/Dump program uses to refer to output file 
being created. 


If you are only printing records from a file, press PROG 
START instead of typing COPYO. The next keyword 
prompted will be MODIFY. 

Location of disk on which output file is to be created. 
Name of disk on which output file is to be created. 


Name by which output file is to be identified on disk. 


Size of output file expressed either as number of records 
(RECORDS) or number of disk tracks (TRACKS). 


Designation (temporary, permanent, or scratch) of output 
file. | 


Response when including control statements in 


procedure. 


Response when not including control statements in 
procedure. 


@ Only the keywords listed here are required. You can bypass the rest. 


© You end every response by pressing PROG START. 
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EXAMPLES 


Copying an Entire Disk 
Statements — 


READY 


KRRKEKKKEKEEKKEKRKERRKEKRERKRRERER 


010 LOAD NAME 
011 UNIT 

020 DATE (XX/XX/XX) = 
030 SWITCH (00000000) - 
040 FILE NAME  - 


RREKEEKKERKEERKEKEKEKRKEKRREEKRERKEEE 


MODIFY 






ENTER '//' CONTROL STATEMENT 
// COPYPACK FROM-F2,TO-R2 


ENTER '//' CONTROL STATEMENT 
// END 


COPYPACK IS COMPLETE 


Explanation 





OCL LOAD Sequence 
Boxed areas are operator responses. 


Keywords for which no responses are 
shown are the ones bypassed. If you 
press ENTER-— after responding to 
UNIT, the DATE, SWITCH, and FILE 
NAME keywords are not prompted. 


RUN is the response to MODIFY 


even though the two words do not 
appear on the same line. 


Message printed by Copy/Dump program. 
Control statement supplied by operator. 


System reprompts. END statement 
terminates sequence. 


Message printed by Copy/Dump program 
to indicate successful copy. 


@ The Copy/Dump program is loaded from the fixed disk on drive 1 (UNIT-F1 in OCL sequence). 


@ The contents of the fixed disk on drive 2 (FROM-F2 in COPYPACK statement) are copied onto the removable disk on 


drive 2 (TO-R2). 
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Copying a File From One Disk to Another 


Statements 


READY 


RRKKEERKEREKREEKREKERERKKEREE 


010 LOAD NAME 


011 UNIT 





020 DATE = 


030 SWITCH 7 


040 FILE NAME 





- File to be 
(input file) OCL LOAD Sequence 
042 PACK 
Boxed areas are operator responses. 
043 LABEL 
Keywords for which no responses 
050 FILE NAME are shown are the ones bypassed. 
051 UNIT RUN is the response to MODIFY 
even though the two words do 
052 PACK not appear on the same line. 
053 LABEL File being 
created 
054 RECORDS (output file) 
055 TRACKS 
056 LOCATION 
057 RETAIN 


RREREKEKEKRKEKRKEREEKRKEKRKEKKKKE 


MODIFY 







ENTER '//' CONTROL STATEMENT Message printed by Copy/Dump program. 
// COPYFILE OUTPUT-DISK Control statement supplied by operator. 
ENTER '//' CONTROL STATEMENT System reprompts. END statement ter- 
\ minates sequence. 
// END 
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Explanation 
@ Copy/Dump program is loaded from fixed disk on drive 1 (UNIT-F1 in OCL sequence). 
@ Input file (OCL sequence): 
1. Name that identifies file on disk is MASTER (LABEL-MASTER). 
2. Disk that contains the file is the fixed disk on drive 1 (UNIT-F1). Its name is A1 (PACK-A1). 
@ Output file (OCL sequence): 
1. Name to be written on disk to identify the file is BACKUP (LABEL-BACKUP). 
2. Disk that is to contain the file is the removable disk on drive 1 (UNIT-R1). Its name is B2 (PACK-B2). 
3. The file is to be permanent (RETAIN-P). 
4..__ The length of the file is 50 tracks (TRACKS-50). 


@ The COPYFILE statement tells the program to create the output file using all the data from the input file. The output 
file is a copy of the input file. 
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Printing Part of a File 


Statement 


READY = 


RHKKRERERKEKREKEERKRRKRKEEEE 


010 LOAD NAME = 











011 UNIT = OCL LOAD Sequence . 

020 DATE = Boxed areas are operator responses. 

030 SWITCH = Keywords for which no responses are 

: shown are the ones bypassed. 
040 FILE NAME . 
RUN is the response to MODIFY — 

041 UNIT even though the two words do not 
“3 Input file appear on the same line. 

042 PACK 

043 LABEL 

050 FILE NAME - 

KKK KKK KERR KRKRERKREERE 

MODIFY - 

ENTER ' / /‘ CONTROL STATEMENT } Message printed by Copy/Dump program. 

// COPYFILE OUTPUT-PRINT } Control statement supplied by operator. 


ENTER '//' CONTROL STATEMENT 

// SELECT KEY,FROM-'ADAMS' ,TO-'BAKER' - Sequence repeats until operator enters 
ENTER '//' CONTROL STATEMENT END statement. 

// END 


Explanation 
® Copy/Dump program is loaded from the fixed disk on drive 1 (UNIT-F1 in OCL sequence). 
@ Input file (OCL sequence): 
1. Name that identifies the file on disk is BACKUP (LABEL-BACKUP). 
2. Disk that contains the file is the removable disk on drive 1 (UNIT-R1). Its name is B2 (PACK-B2). 


@ The file is being printed (COPYFILE statement). 


The file is an indexed file. The part being printed is identified by the record keys from ADAMS to BAKER in the index 
(SELECT statement). 
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Copy a Disk File to a Card File 


Sta tement 


READY - 


RRKEKKREERKEKRERERERKERERE 








010 LOAD NAME; _ 
O11 UNIT - 
020 DATE 
030 SWITCH 
OCL LOAD Sequence 
040 FILE NAME 
Boxed areas are operator responses. 
041 UNIT 
Input file Keywords for which no responses are shown 
042 - PACK are the ones bypassed. 
043 LABEL RUN is the response to MODIFY even 
though the two words do not appear on 
the same line. 


050 FILE NAME 


REEEKEKKERKERKEEREKREEERE 


MODIFY 





ENTER "//" CONTROL STATEMENT } __ Message printed by Copy/Dump program. 


// COPYFILE OUTPUT-DATA96 } Control statement supplied by operator. 
ENTER '//' CONTROL STATEMENT Sequence repeats until operator enters END 
\ statement. 
// END 
Explanation 


@ Copy/Dump program is loaded from the fixed disk on drive 1 (UNIT-F1 in OCL sequence). 
© Input file (OCL sequence): 
1. | Name that identifies the file on disk is MASTER (LABEL-MASTER). 
2. Disk that contains the file is the removable disk on drive 1 (UNIT-R1). Its name is R1R1R1 (PACK-R1R1 R1). 


o The file is being copied to cards OUTPUT-DATAQ6 (COPYFILE statement). 
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Copy a Disk File to the 3741 (Diskette) 


Statement 


READY 


KHEKEKKRKERKREKKEKRKEKEKRKKRKEERE 












010 LOAD NAME - 
011 UNIT 
020 DATE . 
OCL LOAD Sequence 
030 SWITCH 
Boxed areas are operator responses. 
040 FILE NAME 
Keywords for which no responses are 
041 UNIT shown are the ones bypassed. 
Input file 
042 PACK RUN is the response to MODIFY even 
though the two words do not appear on 
043 LABEL the same line. 
050 FILE NAME 
KERR KKKRKRKRKEKKRKKRKEKKEKEE 
MODIFY 
ENTER' '//' CONTROL STATEMENT ~ _} __ Message printed by Copy/Dump program. 


// COPYFILE OUTPUT-3741,LENGTH-128 } Control Statement supplied by operator. 


ENTER '//'. CONTROL STATEMENT 


// END 


Explanation 


Sequence repeats until operator enters END 
statement. 


@ Copy/Dump program is loaded from the fixed disk on drive 1 (UNIT-F1 in OCL sequence). 


@ Input file (OCL sequence): 


1. Name that identifies the file on disk is SALES (LABEL-SALES). 


2. Disk that contains the file is the removable disk on drive 1 (UNIT-R1). Its name is R1R1R1 (PACK-R1R1R1). 


© The file is being copied to the 3741 diskette OUTPUT-3741 (COPYFILE statement). The record length on the 3741 
output file is 128 (LENGTH-128). 
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Copy a Disk File to the 3741 (Diskette) and Print a Part of 
the File 


Statement 
READY ~ 


KRHEKKREKEKRERRERERERKEEEE 














010 LOAD NAME - 
O11 UNIT - 
020 DATE 
OCL LOAD Sequence 
030 SWITCH 
Boxed areas are operator responses. 
040 FILE NAME — _ 
; Keywords for which no responses are 
041 UNIT i | shown are the ones bypassed. 
input file | | 
042 PACK - RUN is the response to MODIFY even 
though the two words do not appear on 
043. LABEL - the same line. 
050 FILE NAME 
KKEEKKREKRKRKEKEKRKKEKEKRKKEKRKEKE 
MODIFY 
ENTER '//' CONTROL STATEMENT } Message printed by Copy/Dump program. 


// COPYFILE OUTPUT-'PRINT,3741',LENGTH-80 } Control statement supplied by operator. 
ENTER '//' CONTROL STATEMENT 


// SELECT RECORD ,FROM-5 ,TO-325 Sequence repeats until operator enters END 


statement. 
ENTER '//' CONTROL STATEMENT 


// END 
Explanation 
© Copy/Dump program is loaded from the fixed disk on drive 1 (UNIT-F1 in OCL sequence). 
' @ INPUT file (OCL sequence): | 
1. Name that identifies the file on disk is BACKUP (LABEL-BACKUP). 
2. Disk that contains the file is the removable disk on drive 1 (UNIT-R1). Its name is R1R1R1 (PACK-R1R1R1). 
© The entire file will be copied from disk to the 3741 (QUTPUT-3741). The record length of the file on the 3741 is 


80 (LENGTH-80). Records 5 through 325 will be printed (RECORD,FROM-5,TO-325). 
142 : 


Copy a Card File to a Diskette and Print the Entire File 


Statement 


READY = 


RREKEKERKKEKERKEKREREREKEEREKRER 


010 LOAD NAME 





O11 UNIT = OCL LOAD Sequence 

020 pate Boxed areas are operator responses. 

030 SWITCH | RUN is the response to MODIFY even 
an6 ere ae though the two words do not appear on ~ 


the same line. 


REKEKRERKKEKRKEKKEEKERERERER 





ENTER '//' CONTROL STATEMENT } Message printed by Copy/Dump program. 


Control statement supplied 


// COPYFILE OUTPUT-'PRINT,3741' , INPUT-DATA96 , LENGTH-96 by operator. 


1 1 j 
ENTER i / CONTROL STATEMENT Sequence repeats until operator enters END 


// END statement. 


Explanation 
© Copy/Dump program is loaded from the fixed disk on drive 1 (UNIT-F1 in OCL sequence). 


© The entire card file from the DATA96 (INPUT-DATA9Q6) will be copied to the 3741 diskette and printed 
(OUTPUT-‘PRINT,3741'). The record length of the output file on the 3741 will be 96 (LENGTH-96). 
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Copy and Print a Portion of a File on a Diskette to a Card 
Device 


Statement 


READY 


010 LOAD NAME OCL LOAD Sequence 





O11 NAME Boxed areas are operator responses. 

020 DATE | Keywords for which no responses are 
shown are the ones bypassed. 

030 SWITCH 


RUN is the response to MODIFY even | 
040 FILE | NAME though the two words do not appear 


on the same line. 
KEK KKKKR RRR RKEKRKREKEE 


MODIFY 





ENTER ; //‘ CONTROL STATEMENT } Message printed by Copy/Dump program. 


// COPYFILE OUTPUT-'PRINT,DATA96' , INPUT-3741,LENGTH-100 ) Control statement supplied 


by operator. 
ENTER '//' CONTROL STATEMENT ae ors 


// SELECT RECORD, FROM-16,TO-67,FILE-YES 


Sequence repeats until operator enters END 


' ' 
ENTER '//' CONTROL STATEMENT statement. 


// END 


Explanation 
@ Copy/Dump program is loaded from the fixed disk on drive 1 (UNIT-F1). 


@ Records 16 through 67 will be copied (FILE-YES) to the DATAQ6 and printed (OQUTPUT-’PRINT,DATAQ6’) from 
the 3741 diskette (INPUT-3741) and the record length in the HDR11 label on the 3741 diskette is 100 (LENGTH-100). 


Note: Only the first 96 positions of the diskette records will be copied to the DATA96. 
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Copy a Diskette File to a Disk File and Print Only the 
Copied Records . 


Statement 


READY - 






RRKEKRKEKEKKEKRERKRERERERRER 


010 LOAD es 





O11 UNIT i 
020 DATE 
030 SWITCH 
OCL LOAD Sequence 
040 FILE NAME = 
Boxed areas are operator responses. 
041 UNIT - 
; Output file Keywords for which no responses are 
042 PACK en shown are the ones bypassed. 
043 LABEL = RUN is the response to MODIFY even 
though the two words do not appear 
044 TRACKS —- on the same line. 
045 RETAIN - 
050 FILE NAME 
KHKKEKREKKEKKEKREKEKERKKEREEE 
MODIFY 
ENTER '//' CONTROL STATEMENT _\> Message printed by Copy/Dump program. 


// COPYFILE OUTPUT-BOTH , INPUT-3741,LENGTH-50 
Control statement supplied by operator. 
ENTER '! / J ' CONTROL STATEMENT 


// SELECT RECORD, FROM-10 ,TO-300,FILE-YES 


Sequence repeats until operator enters END 


' { 
ENTER '//' CONTROL STATEMENT statement. 


// END 
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Explanation 
@ Copy/Dump program is loaded from the fixed disk a drive 1 (UNIT-F1 in OCL sequence). 
@ OUTPUT file (OCL sequence): 

1. Name to be written on disk is MASTER (LABEL-MASTER). 


2. Disk that is to contain the file is the removable disk on drive 2 (UNIT-R2). Its name is R2AR2R2 
(PACK-R2R2R2). 


3. The size of the file is 5 tracks (TRACKS-5). 
4. The file is to be temporary (RETAIN-T). 


@ Records 10 to 300 will be copied (FILE-YES) and printed (OQUTPUT-BOTH). Input is the 3741 (INPUT-3741) 
and the record length in the HDR1 label on the 3741 is 50 (LENGTH-50). 
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Create an indexed File from a Sequential Card File 


Statement 


READY 






KRKEKEREKRKREREKRKEKEKREREERE | 


& 





010 LOAD NAME - 
O11 UNIT 
020. DATE » 
OCL LOAD Sequence 
030 SWITCH 
040 FILE NAME Boxed areas are operator 
responses. 
041 UNIT 
Keywords for which no 
042 LABEL responses are shown are 
Output the ones bypassed. 
043 PACK File 
RUN is the response to 
044 TRACKS MODIFY even though the 
two words do not appear 
045 RETAIN on the same line. 
050. FILE NAME - 


RHKKEKEERKKEEKEREKKKEKREEKRE 


MODIFY 





ENTER '//' CONTROL STATEMENT Message printed by Copy/Dump program. 
// COPYFILE OUTPUT-DISK, INPUT-DATA96 Control statement supplied by Bpatiee 
ENTER '//' CONTROL STATEMENT 
// KEY LENGTH-5 ,LOCATION-1 Sequence repeats until operator enters 
END statement. 


ENTER '//' CONTROL STATEMENT 


// BND 
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Explanation 
@ Copy/Dump program is loaded from fixed disk on drive 1 (UNIT-F1 in OCL sequence). 
@ OUTPUT file (OCL sequence): 

1. Name to be written on disk is SALES (LABEL-SALES). 


2. Disk that is to contain the output file is the removable disk on drive 2 (UNIT-R2). Its name is RAR2R2 
(PACK-R2R2R2). 


3. The file is to be temporary (RETAIN-T). 
4. — The size of the file is 15 tracks (TRACKS-15). 


@ The COPYFILE statement tells the program that all records will be copied (OUTPUT-DISK) from card input 
(INPUT-DATA96). 


@ The KEY statement tells the program to create an index of 5-byte keys (LENGTH-5) starting in position 1 
(LOCATION-1). 
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Create an Indexed Disk File from Sequential Disk Input 


Statement 


READY = 


RREREKKEKEKEKKKEEREKKEKEEEKREER 








010 LOAD NAME = 
011 UNIT 7 
020 DATE 
030 SWITCH 
040 FILE NAME = oe 
OCL LOAD Sequence 
041 UNIT = 
Input Boxed areas are operator 
042 PACK z File responses. 
043 LABEL, = Keywords for which no 
responses are shown are 
050 FILE NAME - the ones bypassed. 
. = RUN is the response to 
O51 Ne MODIFY even though 
052 PACK _ the two words do not 
appear on the same line. 
053 LABEL - ut 
File 
054 RECORDS - 
055 LOCATION- 
056 — RETAIN - 
060 FILE NAME = 
KKKKEKEKKKKEKEKEKKKEKRKERKEEKKE 
MODIFY 
ENTER '//' CONTROL STATEMENT Message printed by Copy/Dump program. 
// COPYFILE OUTPUT-DISK Control! statement supplied by operator. 
ENTER '//' CONTROL STATEMENT 
// KEY LENGTH-5 ,LOCATION-1 Sequence repeats until operator enters 
ENTER '//' CONTROL STATEMENT END statement. 
// END 
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Explanation 


® Copy/Dump program is loaded from fixed disk on drive 1 (UNIT-F1 in OCL sequence). 


@ Input file (OCL sequence) 


1. 


2. 


Name that identifies file on disk is CONSVF (LABEL-CONSVF). 


Disk that contains the file is the removable disk on drive 1 (UNIT-R1). 


© Output file (OCL sequence) 
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ie 


2. 


4. 


5. 


Name to be written on disk to identify the file is INDSVF (LABEL-INDSVF). 


Disk that is to contain the file is the removable disk on drive 2 (UNIT-R2). Its name is RAR2R2 
(PACK-R2R2R2). 


The file is to be temporary (RETAIN-T). 
The file will contain 50 records (RECORDS-50). — 


The file is located at track 8 (LOCATION-8). 


The COPYFILE statement tells the program to create the output file (OQUTPUT-DISK) using all the data from the 
input file. 


The KEY statement tells the program to create an index of 5-byte keys (LENGTH-5) starting in position 1 
(LOCATION-1). 


Library Maintenance Program ($MAINT) 


Your programs are stored on disk in an area called a /ibrary. 
You can update or add new entries in this library. In order 
to do so, you must use the Library Maintenance program. 


The Library Maintenance program ($MAINT) has five func- 
. tions: 


Function Meaning 

Allocate Create (reserve space for), delete, reorganize, 
and change the sizes of libraries; create the 
scheduler work area and roll-in/roll-out area 
on a system pack. 

Copy ~ Place entries in, and display the contents of, 
libraries. 

Delete Delete library entries. 

Modify Modify source library entries. 

Rename Change the names of library entries. 


The contro! statements you must supply depend on the 
function you are using. 


All packs referenced by the control statements must remain. 


online during the Library Maintenance run. 
Library Description 


Source Library 


The source library is an area on disk for storing procedures 
and source statements. Procedures are groups of OCL 
statements used to load programs. The statements can be 
followed by input data for the programs. (Procedures for 
utility programs can, for example, contain utility control 
statements.) Source statements are sets of data, the most 
common of which are RPG II source programs and Disk 
Sort sequence specifications. 


Object Library 


The object library is an area on disk for storing object pro- 
grams and routines. Object programs are programs and sub- 
routines in such a form that they can be loaded for execu- 
tion. (They are sometimes called load modules.) Routines 
are programs and subroutines that need to be link-edited 
into object programs before they can be loaded for execu- 
tion. (They are sometimes called object modules.) 


Location of Libraries on Disk 


Libraries can be located anywhere on disk. However, the 
location of a source library with respect to an object library 
is always the same: 


Roll-in/ 
Roll-out 


Source Library }| Scheduler 
Work Area 


User Area 
© Data Files | @ Procedures 


® Source Area 
| Statements 





heats 0-7 


User Area 
® Object Programs | @ Data Files} 
© Routines 


Object Library 





Weiss Boundary 


The boundaries of a source library are fixed. They can be 
changed only by the allocate function of the Library Main- 


‘tenance program. The upper boundary of an object library, 


however, can be moved as additional space is needed when 
entries are placed in the library. This happens only if space 
is available following the library and if the entries being 
placed beyond the normal boundary are not permanent 
entries. 


Organization of Library Entries 


Entries are stored in the object library serially; that is, a 
20-sector program occupies 20 consecutive sectors. Tem- 
porary entries follow all permanent entries in the object 
library. 


If necessary, the upper boundary is changed to allow more 
space for temporary entries. The upper boundary of the 
library is extended to the end of. the pack or to the first 
temporary or permanent file, allowing the maximum 
amount of space for the temporary library entry. At the 
successful completion of the copy, the upper boundary is 
returned to the track boundary at the end of the last; 
temporary entry. If the copy was not completed successful- 
ly, the upper boundary may remain extended. When a per- 
manent entry is placed in the library or the library is reorg- 
anized, all temporary entries are deleted and the upper 
boundary returns to its original location. Permanent entries 
cannot exceed the original upper boundary. 
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Gaps can occur in the object library when an entry is delet- 
ed. The associated directory entries will point to these gaps. 
When the Library Maintenance program places a new entry 
in the library, it searches the directory for a gap that has- 
the same number of sectors, or the fewest number of sectors 
over the number required by the new entry. If the entry is 
smaller than the gap, the last part of the gap will not be 
pointed to by a directory entry. Since this gap has no dir- 
ectory entry, it will not be used until the library is reorgan- 
ized. 


If the number of unusable sectors becomes excessive, the 
library should be reorganized. In reorganizing entries, the 
Library Maintenance program deletes temporary entries and 
shifts permanent entries so that gaps do not appear between 
them. This makes more sectors available for use. 


The source library differs from the object library in that 
entries within the source library need not be stored in con- 
secutive sectors. An entry can be stored in many widely 
separated sectors with each sector pointing to the sector 
that contains the next part of the entry. When an entry is 
placed in the source library, it is placed in as many sectors 
as required regardless of where the sectors are located within 
the library. 


The boundary of the source library cannot be expanded; 
therefore, an entry must fit within the available library 
space. To provide as much space as possible within the 
prescribed limits of the source library, the system compres- 
ses entries. That is, blanks and duplicate characters are 
removed from entries. Later, if the entries are printed or 
punched, the blanks and duplicate characters are reinserted. 
When the size of the source library is changed or the source 
library is reorganized, all temporary entries are deleted. 


Library Directories 


The program creates a separate directory for each library. 
Every library entry has a corresponding entry in its library 
directory. The directory entry contains such information 
as the name and location of the library entry. The program 
also creates a system directory, which contains information 
about the size and available space in libraries and their 
directories. 
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Organization of This Section 


The five functions are described separately. Every descrip- 
tion contains the following: 


1. List of specific uses. 


2. Control statement summary indicating the form of 
the control statement needed for each use. 


3. Parameter descriptions explaining, in detail, the con- 
tents and meanings of the parameters. 


4. Function descriptions explaining the details of each 
function. 


5. Examples that include OCL statements, utility control 
- statements, and explanations of their use. 


OCL considerations for the program precede the examples. 


ALLOCATE 


The allocate function of the Library Maintenance program 
allows you to: 


@ Create libraries, scheduler work area, and roll-in/roll-out 
area. 


@ Change the size of libraries. 
@ Delete libraries. 


@ Reorganize libraries. 


Creating Libraries 

Creating a library involves: 

@ Assigning a library to a disk. 

@ Assigning space for the library directory. 

@ Using a work area. 

Assigning a Library to a Disk: You are allowed one source 
and one object library per disk. The libraries can be located 
anywhere on the disk where space is made available as long 


as the source library precedes the object library. You 
needn’t have both libraries on a disk. 


Assigning Space for the Library Directory: The Library 
Maintenance program creates a separate directory for each 
library. A directory for a source or object library contains 
information concerning each library entry. This informa- 
tion includes the name and location of the library entry. 
For a source library, the first two sectors of the first track 
are assigned to the directory. For an object library which 
includes system programs, the first three tracks are assigned 
to the directory. If system programs are not included, only 
the first track is assigned to the directory. The directory 
size is overridden by the DIRSIZE parameter if used (see 
DIRSIZE). 


Another type of directory, the system directory, is also 
created by this program. The system directory contains 
information concerning the libraries and their directories. 
This information includes the size of and available space 
in the libraries and their directories. The system directory 
is contained in the volume label on any disk pack. 


Allocate Considerations and Restrictions 


This program has restrictions and operating conditions that 
the user must be aware of when maintaining libraries. 


Allocation of Disk Space 


The Library Maintenance program allocates disk space for 
each of the following functions: 


Create a library 
@ Increase the size of a Jibrary 
@ Reorganize a library 


@ Dynamically extend an object library to copy temporary 
entries to the library 


@ Sort a directory before it is printed 


@ Modify a source library entry 


The space allocated by the program is the first contiguous 
space large enough for the function to be performed. The 
Library Maintenance program will use as much space as is 
available to the end of the pack or to the first temporary 
or permanent data file, removing all scratch files in this 
area. If within a single load of the program, there are 
functions performed which require more than four disk 
areas to be allocated, a halt will occur. The Library Main- 
tenance program must be reloaded to continue. 


Removing Temporary Entries 


When a library is reorganized, its size is changed, or it is 
moved, all temporary entries in that library are deleted. 
This applies to both the source and object libraries. 


Library Restrictions 


The Allocate function cannot reference the libraries on the 
pack from which the Library Maintenance Program or the 
system was loaded. For example, if the system was loaded 
({PL) from F1 and the Library Maintenance Program was 
loaded from R1, the source or object libraries on F1 and 
R1 cannot be referenced on an ALLOCATE statement. 


Moving the Object Library 

When creating or changing the size of the source library on 

a pack that contains an object library, the object library is: 
moved and reorganized and all temporary entries are deleted. 
Control Statement Restrictions ; 

The SOURCE or OBJECT parameter must be specified in 
the ALLOCATE statement. If the SYSTEM or DIRSIZE 


parameter is specified, the OBJECT parameter must also 
be specified. 
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Allocate Control Statement Summary 


// ALLOCATE TO-code,SOURCE R ,OBJECT- R »SYSTEM-<: 
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number number NO 
YES 


Use 0 Parameter Needed @ . 


,DIRSIZE-number,WORK-code 


Create: TO-code,SOURCE-number,WOR K-code 
Change Size: TO-code,SOURCE-number,WOR K-code 
Source 
EIDrary, Delete: TO-code,SOURCE-0 
Reorganize: TO-code, SOURCE-R,WORK-code 
. NO 
Create: TO-code,OBJECT-number,SYSTEM- WE s 
Object Change Size: TO-code,OBJ ECT-number,WOR K-code 0 
jec 
Library Delete: TO-code,OBJECT-0 
Reorganize: TO-code,OBJECT-R,WORK-code 0 


1) You can indicate a source library use, any object library use, or uses involving both libraries (for example, deleting the source library 
and changing the size of the object library). 


© If you are indicating uses for both libraries, use only one TO parameter. (The libraries must be on the same disk.) Also, use only one 
WORK parameter if both uses require a WORK parameter. , 


© The WORK parameter is needed only if the disk contains an object library that you are not deleting. 


Oo The WORK parameter is needed only if other functions are also being performed. 


Allocate Parameter Summary 


Parameter Meaning 


TO-code Location of disk that contains or will contain the tibrary. Possible codes 
: are R1, F1, R2, and F2 


SOURCE-number (no source library on disk) Create a source library. Number indicates the number of tracks you want to assign. 
SOURCE-number (source library already on disk) Delete or change the size of the source library. Use depends on number: 
Number | Use 
0 Delete 
Any number but zero . Change size 
SOURCE-R Reorganize the source library. - 
OBJECT-number (no object library on disk) Create an object library. Number indicates the number of tracks you want to assign. 
OBJECT-number (lifes library already on disk) Delete or change the size of the object library. Use depends on number: 
Number Use 
0 Delete 
Any number but zero Change size 
OBJECT-R Reorganize the object library. 
DIRSIZE-number Number of tracks you want for the directory when creating, reallocating, or 


reorganizing the object library. 


SYSTEM-NO Do not create a scheduler work area. This will be a program pack. 
SYSTEM-YES Create a scheduler work area. This will be a system pack. 
WORK-code Location of disk containing space the program can use as a work area. Possible codes 


are R1, F1, R2, or F2. Cannot be the same disk that was specified in the TO-code. 
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PARAMETER DESCRIPTIONS 


TO Parameter 


The TO parameter (TO-code) indicates the location of the 
disk that contains, or will contain, the library. If the pro- 
gram use involves both libraries, the libraries must be on the 
same disk. The TO parameter cannot be the same unit from 
which the Library Maintenance program or the system was 
loaded. 


Codes for the possible locations are as follows: 


Code Location 
R1 Removable disk on drive 1. 
F1 Fixed disk on drive 1. 
R2 Removable disk on drive 2. 
F2 Fixed disk on drive 2. 


SOURCE and OBJECT Parameters 


The SOURCE and OBJECT parameters identify library 
uses: 


Parameter Use 
SOU RCE-number If the disk contains no library, this 
OBJECT-number parameter means create a library. 


(number is not Number is the number of tracks 
zero) you want to assign to the library. 


If the disk contains.a library, this 
parameter means change the library 
size. Number is the number of 
tracks you want to assign to the 


library. 
SOURCE-0 Delete the library. 
OBJECT-0O 
SOURCE-R Reorganize the library. 
OBJECT-R 
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DIRSIZE Parameter 


The DIRSIZE parameter allows the user to specify the size 
of the object library directory. The number of tracks spe- 
cified (1-9) overrides the SYSTEM parameter in determin- 
ing directory size. Each track can contain 288 directory 
entries. One entry is needed for the directory, so the formu- 
la for the number of entries in a directory is (t x 288)-1, 
where t is the number of tracks. If the DIRSIZE parameter 
is omitted, the SYSTEM parameter determines the direc- 
tory size. 


SYSTEM Parameter 


The SYSTEM parameter applies when creating, changing 
the size of, and reorganizing object libraries. It tells the 
program whether you intend to include system programs 
in the library and create a system pack that can be used to 


- perform initial program load. If system programs are to be 


included, a scheduler work area must be assigned. See 
Using the Copy function, Library to Library for informa- 
tion about creating a system pack. 


Space for the scheduler work area is assigned immediately 
preceding the object library. If the disk contains a source 
library, the work area is between the source and object 
libraries. For information about the size of the scheduler 
work area, see Creating an Object Library under Using the 
Allocate Function. 


The following charts show the results of coding the SYS- 
TEM parameter for different allocate uses. 


Creating an Object Library 


Parameter Scheduler Work Area Directory Size* 
SYSTEM-YES Created Three Tracks 
SYSTEM-NO Not Created One Track 

not coded Not Created One Track 


* The directory size is overridden if the DIRSIZE parame- 
ter is used. 


Changing the Size or Reorganizing an Object Library ona 
Pack That Contains a Scheduler Work Area 


Parameter Scheduler Work Area Directory Size* 
SYSTEM-YES Retained : not changed 
SYSTEM-NO Removed not changed 
not coded Retained not changed 


*The directory size is overridden if the DIRSIZE parameter 
is coded. 


Changing the Size of or Reorganizing an Object Library on 
_ a Pack That Does Not Contain a Scheduler Work Area 
Scheduler Work Area 


Parameter Directory Size* 


SYSTEM-YES Created not changed 


SYSTEM-NO Not Created not changed 


snot coded Not Created not changed 


*The directory size is overridden if the DIRSIZE parameter 
is coded. 

WORK Parameter 

The WORK parameter (WORK-code) indicates the location 
of the disk that contains a work area. Library entries are 
temporarily stored in the work area while the program 
moves and reorganizes libraries. 


Codes for the possible disk locations are as follows: 


Code Location 


R1 Removable disk on drive 1. 
F1 Fixed disk on drive 1. 
R2 Removable disk on drive 2. 
F2 Fixed disk on drive 2. 


When the WORK parameter is coded on an ALLOCATE 
statement, an additional allocation of disk space may result. 
(See index entry. A//location of Disk Space.) 


Size of the Work Area: The work area must be large enough 
to hold the directory and the permanent entries of the source 
library, object library, or both libraries depending on the 
program use. If you are combining uses, such as changing 

the sizes of both libraries, the work area must be large enough 
to hold the contents of both libraries. . 


Use 


Create a source library (disk 
contains an object library). 


Change source library size 
(disk contains an object 
library). 


Change source library size 
(disk doesn’t contain an 
object library). 


Reorganize source library. 


Change object library size. 


Reorganize object library. 


Contents of Work Area 


Object library. 


Source library and ob- 
ject library. 


Source library. 
Source library. 
Object library (see 


Compress in Place). 


Object library (see 
Compress in Place). 
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Location of Work Area on Disk: The program uses the 
first available disk area large enough to hold the library, or 
libraries. 


Location of Disk Containing the Work Area: The work 
area can be on either disk on either drive. However, it can- 
not be the same disk as the one you specified in the TO 
parameter. The only requirement is that the disk must have 
an available area large enough for the work area. If your 
system has two disk drives, the program works faster if the 
disk containing the libraries is on a different drive than the 
disk containing the work area. 


Using the Allocate Function 
Creating a Source Library (SOURCE-number) 


Source Library Size 
® Minimum: One track 
© Maximum: Number of tracks in the available area 


@ Regardless of the number of tracks you specify, the first 
two sectors of the first track are assigned to the library 
directory. Additional sectors are used as needed for the 
directory. 


Placement of Source Library (Disk With an Object Library) 


@ The source library must immediately precede the object 
library. A disk area large enough for the source library 
must follow the object library because the program 
moves the object library to make room for the source 
library. To do this, the program needs a work area. 
(See WORK Parameter.) The object library is reorgan- 
ized and all temporary entries are deleted. 


@ If you allocate a source library after deleting it, the 
program automatically moves the object library to make 
room for the source library. The starting location of 
the source library is the previous starting location of the 
object library. 


Placement of the Source Library (Disk Without an Object 
Library): The program assigns the source library to the 
first available disk area large enough for the library. If you 
allocate a source library after deleting it, the source library 
is assigned the same way. 
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Disk Space before creating the Source Library: 


Object Library | Available Space Customer 
(30 tracks) (15 tracks) Files ; 
|o-7 eee 8-37 —> }+— 38-52-—>| 


Tracks 


Disk Space after creating the Source Library: 


Customer 





Object Library | Available 
(30 tracks) Files 
0-7 8-12 [+#--13-.42—> + 43.52 
| | Tracks a 


Changing the Size of (Reallocating) a Source Library 
{SOURCE-number) 


Any time the program changes the source library size, it 
reorganizes both the source and object libraries and deletes 
all temporary entries. (See Reorganizing a Source Library.) 
To do this, it needs a work area. (See WORK Parameter. ) 


Making the Source Library Larger 


© |f the disk contains an object library, space must be 
available immediately following the object library. The 
program moves the object library to make tracks avail- 
able at the end of the source library. 


- @ If the disk does not contain an object library, space 


must be available immediately following the source 
library. 


Disk Before Tracks Are Added to Source Library: 


Available Customer 


Source Object 


Library Library 
(10 tracks)| (30 tracks) 


8-17. }—18-47 48-62 | 
Tracks 





0-7 | 


Disk After Five Tracks Are Added to Source Library: 























Available Customer 


Files 


Source 
Library 
(15 tracks) 


8-22 


Object 
Library Space 

(30 tracks) | (10 tracks) 
}e—23-53-——»| 53-62" 


Tracks 








lo7l 


Making the Source Library Smaller 


© If the disk contains an object library, the program 
moves the end location of the source library to make 
the library smaller. The object library is moved and 
space becomes available following the object library. 


© If the disk does not contain an object library, the 


program moves the end location of the source library to 
make the source library smaller. 


Disk Before Source-Library Size Was Decreased: 
















Source Object Customer 





Library Library . Files 
(15 tracks) (30 tracks‘) 
lo-7 8:22 > }«—_——- 23-52 ______» 


Tracks 


Disk After Five Tracks Were Taken From Source Library: 
























Source Object Available Customer 
Library Library Space Files 
(10 tracks} (30 tracks) ] (5 tracks) 


|~—18-47-—>} 48-52 | 
Tracks 


loz! 9-17 


Deleting a Source Library (SOURCE-O) 


The program makes the disk area occupied by the source 
library available for other use (disk files). The starting 
location of the library is moved to the start of the ob- 

' ject library. 


If you try to reinstate a source library, the program checks 
to make sure there is enough space to contain the combined 
source and object libraries (the check begins at the starting 
location of the library). 


Disk Before Source Library Deleted 















Customer 
Files 






Object Library 
(30 tracks) 


Source 
Library 
(15 tracks) 





| 0-7 [— 8-22 + 2362 ——+ 


| Disk After Source Library Deleted (SOURCE-O only) 











Available 
Space 
(15 tracks) 






Object Library | Customer 
(30 tracks) 


Tracks 





| 0-7 |+-——8-22-—$+ 





To retain the deleted space for library usage, the additional 
parameter OBJECT-R may be used with SOURCE-O on the 
same allocate statement. As a result. the starting location 
of the library will remain the same. 


Disk Before Source Library Deleted 


Source Object Library 
Library (30 tracks) 
(15 tracks) 


| 0-7 | 8-22 —|— 23-52 —| 


Customer 
Files 


Disk After Source Library Deleted With Object Library 
Reorganized (SOURCE-0 with OBJECT-R) 








Available 
Space 
(15 tracks) 


| 0-7 = 8-37 a 2852 —.| 


Reorganizing a Source Library (SOURCE-R) 











Object Library 
(30 tracks) 


Reason for Reorganizing the Library: Areas from which 
source library entries (procedures or source) are deleted 

are completely reused for new entries. If an entry exceeds 
the space in such an area, the program puts as much of the 
entry as will fit in the area and continues the entry in the 
next available area. In this way, the program efficiently 
uses library space. This can, however, decrease the speed 

at which those entries can be read from the library. There- 
fore, if you frequently add and delete source library entries, 
you should reorganize your source library periodically. 


Reorganizing the Library: The program relocates entries 
so that no entry is started in one area and continued in 
another. All temporary entries are deleted. The program 
needs a work area. (See WORK Parameter. ) 


Creating an Object Library ( OBJECT-number) 


Object Library Size 

© Minimum: Three tracks, including the directory tracks. 

© Maximum: Number of tracks in available area. 

© Library Directory: The first three tracks in the library 
are reserved for the Jibrary directory if the library is to 
contain system programs; otherwise, only the first track 
is used. If the DIRSIZE parameter is entered, the 


directory size specified is used. 
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© Scheduler Work Area: The scheduler is a component of 
the System/3 SCP that reads and processes OCL state- 
ments. It uses a work area on disk, called the scheduler 
work area (SWA), to temporarily save OCL file label in- 
formating during the processing of a program. The area 
is allocated when SYSTEM-YES is specified. The work 
space is not included in the number you specify in the 
OBJECT parameter; the space is calculated and assigned 
by the Library Maintenance program. The amount of 
space needed depends on whether the inquiry capability 
is generated in the supervisor. All systems require two 
tracks, the inquiry feature requires additional tracks for 
a Roll-in/Roll-out area. The number of tracks needed 
depends on the main storage size of the system. 


Main Storage Size Roll-in/Roll-out Tracks 


8K 4 
12K 4 
16K 5 
24K . 6 
32K 8 


The SWA contains disk pack usage information, F1 and F7 
label information, an initiator table, utility control card area, 
and miscellaneous work areas. (See Maximum Number of 
Files in SWA.) 


Placement of Object Library (Disk With a Source Library): 
Space for the object library must be available immediately 
following the source library. 


Placement of Object Library (Disk Without a Source 
Library): The program assigns the object library to the 
first available disk area that is large enough. 


Changing the Size of (Reallocating) an Object Library 
(OBJECT-number) 


Making the Library Larger: The number of tracks you 
want to add must be available immediately following the 
object library. The program assigns the additional tracks 
to the library. (The starting location of the library remains 
unchanged.) 
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Making the Library Smaller:, The program moves the end 
location of the object library to decrease the library size. 
Tracks, therefore, become available following the library. 


Reorganizing the Library: Any time the program changes 
the library size, it also reorganizes the library and deletes 

all temporary entries. (See Reorganizing an Object Library.) 
If other functions are also being performed with the reorgani- 
zation, the program needs a work area. (See WORK Param- 
eter.) If not, a work area is not used. (See Compress in 
Place.) 


Deleting an Object Library (OBJECT-O) 


The program makes the disk area occupied by the object 
library (and the scheduler work area if this was a system 
pack) available for other use. 


Reorganizing an Object Library (OBJECT-R) 


Gaps can occur between object library entries when you 

add and delete entries. By reorganizing the library, these 
gaps are removed. When the library is reorganized, all 
temporary entries are deleted. If other functions are also 
being performed with the reorganization, the program needs 
a work area. (See WORK Parameter.) \f not, a work area 

is not used. (See Compress in Place.) 


Compress in Place (oBsect- | H \ ) 

Number 
If the object library is being reorganized or the size of the 
object library is being changed and no other functions are 
being performed, the object library is compressed in place. 
This means that the library is reorganized with all gaps 
removed and all temporary entries are deleted without 
using a work area. The WORK parameter is ignored if it is 
supplied. 


A work area is needed if a source library function is being 
performed or if the directory size (DIRSIZE parameter) 
or the pack type (SYSTEM parameter) is being changed 
in conjunction with an object library function. 


Compress in place allows the user with a single-spindle or 
half capacity system to reorganize the object library. 


COPY 


The copy function of the Library Maintenance program 
allows you to copy: 


Reader-to-Library: Add or replace a library entry. The 
reader is the system input device. 


File-to-Library: Add or replace one or more library entries. 


A 5444 disk file is the input. 


Library-to-Library 


© Copy one library entry (or those entries with the same 
name from all libraries). 


© Copy library entries that have names beginning with 
certain characters. 


© Copy all library entries. 


© Copy minimum system. 


Library-to-Printer 


® Print one library entry (or those entries with the same. 


name from all libraries). 


@ Print library entries that have names beginning with 
certain characters. 


@ Print all library entries of a certain type. 


@ Print directory entries for library entries of a certain 
type. 


@ Print entries from all directories including the system 
directory. 


© Print system directory only. 
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Library-to-Card 


@ Punch one library entry (or those entries with the same 
name from all libraries). 


@ Punch library entries that have names beginning with 
certain characters. 


@ Punch all library entries of a certain type. 


Library-to-Printer And Card 


-@ Print and punch one library entry (or those entries with 
the same name from all libraries). 


@ Print and punch library entries that have names beginning 
with certain characters. 


@ Print and punch all temporary or permanent library 
entries of a certain type. 


Copying a library entry involves: 
© Identifying the location of an entry. 
e Identifying an entry. 


@ Removing and reinserting blanks and duplicate 
characters. 


Identifying the Location of an Entry. An entry can be 
read from the system input device, a file or from disk. It 
can be copied to disk, printer, or cards. 


Identifying an Entry. Entries are identified by their type 
and name. Entries that can be copied include source 
library and object library entries. A name identifies 
specific entries within the library. You can also further 
identify an entry by designating whether it is temporary 
or permanent. This allows the program to make a check 
before replacing an entry. 


Removing and Reinserting Blanks and Duplicate Characters. 
Before source statements or procedures are put In tne 
source library, blanks and duplicate characters are removed 
to save space. When the source statements or procedures 
are used blanks and duplicate characters are reinserted. 
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COPY Control Statement Summary: Reader-To-Library 


Add or Replace a Library Entry 


/] COPY FROM-READER,LIBRARY- 


»NAME-name, 


zt 


TO-code,RETAIN-< P 
R 


Library Entry: 


// CEND Must always follow the source or object 
entry being placed into the source or 


object library. 


Note: /* or /& statements cannot be present in the 
entries being copied into the libraries. 


COPY Control Statement Summary: File-To-Library 


Add or Replace One or More Library Entries _ 


// COPY FROM-DISK,FILE-filename,RECL- sae 


96 


TO-code,RETAIN- 7 


Example of data in disk file: 
// COPY FROM-READER,LIBRARY-O,RETAIN-P, 


NAME-DECKO1 Oo 


load module 


// CEND 


// COPY LIBRARY-S,NAME-DECK02 @ 


source module 


// CEND 


// END @ 


@ Only the LIBRARY and NAME parameters are required. 
Other parameters are ignored. 


@ The // END statement read from the file is optional. 
It causes the next statement to be read from the 
system input device or procedure. A // END state- 
ment must still be read from the system input device 
or procedure to indicate the end of the Library 
Maintenance control statements. 





COPY Control Statement Summary: Library-To-Library 






Copy One Library Entry (or Entries with the Same Name from All Libraries) 







s 
° 1) @ 

/] COPY FROM-code, LIBRARY- 5 »NAME-name,TO-code,RETAIN-< P oe 

R 
ALL 
Copy Library Entries that Have Names Beginning with Certain Characters 

Ss. 
P ‘ T 

/| COPY FROM-code,LIBRARY-< 9 »~NAME-characters.ALL,TO-code,RETAIN- < P ?,NEWNAME-characters 
R R 






ALL 








Copy All Library Entries 


)e 


/NAME-ALL,TO-code,RETAIN-< P 
R 





|| COPY FROM-code,LIBRARY- 







rPDVOTN 


LL 












Copy Minimum System 


/| COPY FROM-code, LIBRARY-O,NAME-SYSTEM,TO-code @ 






a NEWNAME parameter is needed in any of the following cases: 






1. If you want the copy to have a different name than the original entry. 

2. If you want to replace an entry on the TO disk with an entry from the 
FROM disk, but the entries have different names. 

3. If you want the names of the copies to begin with different characters 





than the names of the original entries, the same number of characters 
must be in the NEWNAME parameter as in the NAME parameter. 

4. If the FROM and TO units are the same. 
Note: NEWNAME cannot be DIR, ALL, or SYSTEM. 







2) The FROM and TO parameters cannot be the same. 
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COPY Control Statement Summary: Library-To-Printer And/or Card 


Print And/or Punch One Library Entry (or Entries with the Same Name from All Libraries) 


S 


P PUNCH 
// COPY FROM-code, LIBRARY-< O \,NAME-name,TO- < PRINT 


R PRTPCH 
ALLY 


Print And/or Punch Temporary and Permanent Library Entries that Have Names Beginning with Certain Characters 


s 


P PUNCH 
// COPY FROM-code,LIBRARY- < 2 (?,NAME-characters.ALL,TO- < PRINT 
R 


PRTPCH 
ALL 


Print And/or Punch All Temporary and Permanent Library Entries of a Certain Type 


PUNCH 
// COPY FROM-code, LIBRARY- »NAME-ALL, TO-.< PRINT 
PRTPCH 


Print Directory Entries for Library Entries of a Certain Type 


S 


_ YP. 
/| COPY FROM-code, LIBRARY-< g ),NAME-DIR,TO-PRINT 
R 


Print Entries from All Directories Including System Directory 


// COPY FROM-code,LIBRARY-ALL,NAME-DIR,TO-PRINT 


Print System Directory Entries Only 


/| COPY FROM-code,LIBRARY-SYSTEM,NAME-DIR,TO-PRINT 


Print Directory Entries, Omitting Selected Entries 


name 


/] COPY FROM-code,LIBRARY- *NAME-DIR,TO-PRINT,OMIT: 9 characters. ALL 


LL 
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Copy Parameters 


Parameter Meaning . 


FROM-READER 


FROM-code 


FROM-DISK 


FILE-filename 


80 
RECL- et 


— 


LIBRARY- 


DovuvMmN 


LIBRARY-ALL 
LIBRARY-SYSTEM 
name 


NAME- <characters.ALL 
ALL 


Entry to be placed in library is to be read from system input device. 


Location of disk containing library entries being copied, printed, or punched. Possible 
location codes are: 


Code 


Ri 


F1 


R2 


F2 


Meaning 

Removable disk on drive one 
Fixed disk on drive one 
Removable disk on drive two 


Fixed disk on drive two 


The entry or entries to be placed into a library or libraries reside in a 5444 disk file. The 
disk file must be described by an OCL FILE statement. 


For a file-to-library copy, this parameter is needed to identify the file on disk. The 
filename must match the filename on the OCL FILE statement. 


For a file-to-library copy, this parameter gives the size of the disk records. Only 80 
or 96 column card image records are allowed. If this parameter is omitted, 96 


is assumed. 


Type of library entries involved in copy use. Possible codes are: 


Code 


Ss 


P 


O 


R 


Meaning 

Source statements (source library) 
OCL procedure (source library) 
Object programs (object library) 


Routines (object library) 


All types of entries (S, P, O, and R} from both libraries are involved in copy use. 


Only system directory entries are being printed. 


Specific library entries on the FROM pack, of the type indicated in LIBRARY 
Parameter, involved in copy use. Possible information is: 


Information 


name 


characters. ALL 


ALL 


Meaning 
Name of the library entry involved. 
Only those entries beginning with the indicated characters. For 


example, $MA.ALL means the Library Maintenance program 
(SMAINT). , 


All entries. (The type indicated in LIBRARY parameter.) 
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Parameter Meaning 


NAME-SYSTEM System programs that make up the minimum system and IPL information contained 
on cylinder O are copied. The minimum system is made up of system programs necessary 
to load and run programs. System programs necessary to generate and maintain the 
system such as utilities are not included in the minimum system. 


NAME-DIR Directory entries for all library entries of the type indicated in the LIBRARY parameter 
are involved in the copy use. If the LIBRARY parameter is LIBRARY-ALL, system 
directory entries are also printed. 





neramn-{e| Adding Entry to Library. RETAIN gives designation of the TO entry: 
: Code Meaning 
T Temporary 
PorR Permanent 


Replacing Existing Library Entry. RETAIN gives designation of the TO entry and 
tells program whether to halt before replacing entry: 


Code Meaning 

T Temporary designation. Halt before replacing entry. 

P Permanent designation. Halt before replacing entry. 

R Permanent designation. Do not halt before replacing entry. 


Printing or Punching Entries. The RETAIN parameter is ignored. 


TO-code Location of disk that is to contain the copies of the entries: 
Code Meaning 
R1 Removable disk on drive one 
Fi Fixed disk on drive one 
R2 Removable disk on drive two 
F2 Fixed disk on drive two 

TO-PRINT Entries are being printed. 

TO-PUNCH Entries are being punched. 

TO-PRTPCH Entries are being printed and punched. 

NEWNAME-name Name you want used on the TO disk to identify the entries being put on that disk. 
If you omit this parameter, the program uses the NAME parameter in naming the 
entries. 

NEWNAME-characters Beginning i aiyetac you want.to use in names identifying entries being put on TO 


disk. You must use the same number of characters as in the NAME parameter 
(NAME-characters.ALL). If you omit this parameter, the program uses the NAME 
parameter ’in naming the entries. 


OMIT-name When printing directory entries, omit the entry specified by name. 


OMIT-characters.ALL When printing directory entries, omit all entries with these beginning characters. 
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Using the Copy Function 


Library Directories 


Source and Object Library Directories 


© The source and object libraries have separate library 
directories. Every library entry has a corresponding 
entry in its library directory. The directory entry con- 
tains such information as the name and location of the 
library entry. (See Printout of Directory Entries.) 


@ The Library Maintenance program makes entries in the 
directories when it puts entries in the libraries. 


System Directory 


© Every disk that contains libraries contains a system 
directory. The system directory contains information 
about the sizes of and available space in libraries and 
their directories. (See Printout of Directory Entries.) 


@ The Library Maintenance program creates and maintains 
the system directory. 


Naming Library Entries 


Characters to Use: Use any combination of System/3 
characters except blanks, commas, quotes, and periods. 
(Appendix A lists the characters.) The names of most |BM 
programs begin with a dollar sign ($). Therefore, to avoid 
possible duplication, do not use a dollar sign as the first 
character in the names you use for your entries. The first 
character must be alphabetic. 


Length of Name: The name can be from one to six 
characters long. 


Restricted Names: Do not use the names ALL, DIR, and 
SYSTEM. They have special meanings in the NAME and 
NEWNAME parameters. 


Entries with the Same Name: For each of the two physical _ 
libraries, source and object, there are two types of entries. 
The source library has type P and type S entries. The 
object library has type O and type R entries. Entries of the 
same type cannot have the same name, but entries of 
different types may. For example, two procedures in 
source library cannot have the same name, but a procedure 
and a set of source statements can. 


Retain Types 


Temporary Entries 


@ Temporary entries are entries you do not intend to keep 
in your libraries. They are normally used only once or a 
few times over a short period. 


© In the object library, temporary entries are placed to- 
gether following the permanent entries. Any time a 
permanent entry is added to the library, all temporary 
entries are deleted. . Temporary entries are also deleted 
when you replace one permanent entry with another. 


@ In the source library, temporary and permanent entries 
can be in any order. One entry is placed after another 
regardless of their designations. Temporary entries, 
therefore, are not automatically deleted every time you 
add a permanent entry. However, when the source 
library is reallocated or reorganized, only permanent 
entries will remain. 


@ You can use temporary entries as often as you like until 


they are deleted. 


@ A temporary entry cannot replace a permanent entry. 


Permanent Entries 


© Permanent entries are entries you intend to keep in your 
libraries. They are normally entries you use often or at 
regular intervals (once a week, once a month, and so on). 


© The program will not delete permanent entries unless 
you use the delete function of Library Maintenance 
to delete them, or the allocate function to delete the 
entire library. 
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Reader-to-Library 


/nput: The program reads one library entry. It can be any 
one of the following types: 


1. Source statements 
2. Procedure 

a: Object program 
4. Routine 


The entry is read from the system input device, which is 
normally the keyboard. The operator can, however, 
change the system input device by using the OCL 
READER statement. 


The header card on an object deck (H in column 1) con- 
tains the date the deck was punched. This date is in columns 
58-63 and is in the format of the system date, either 
mmddyy or ddmmyy. 


Output 


@ Blanks and duplicate characters are removed from source 
statements and procedures before they are put in the 
source library. The program does not check them for 
errors. 


@ Object programs and routines are placed in the object 
library after sequence and checksum information is - 
removed. 


Adding Entries: The program can add a new entry toa 
library. The name of the entry is taken from the NAME 
parameter. See Naming Library Entries for valid names. 
The RETAIN parameter specifies whether the entry will 
be temporary or permanent. If the RETAIN parameter is 
omitted, RETAIN-T is assumed (see Retain Types). 


Replacing Existing Entries 


@ The program can replace an existing library entry with 
the entry you are putting in the library. The RETAIN 
parameter specifies the new retain type. If the RETAIN 
parameter is omitted, RETAIN-T is assumed. A tempo- 
rary entry cannot replace a permanent entry. 


@ The program can halt before replacing an existing entry. 
Whether it does depends on the RETAIN parameter you 
use. (See RETAIN parameter.) 
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® Before the new entry is added, the duplicate entry is 
deleted. Additional library space is not needed unless 
the new entry is larger than the old one. 


File-to-Library 


Input: The disk file can contain one or more library entries. 
The entries must be in the format put out by the library-to- 
card function or by the linkage editor. The // COPY state- 
ment at the beginning of each entry contains the name of 
the entry and the type of library (S, P, O, R). A// CEND 
statement must follow each entry in the file. 


The disk file must be a sequential 5444 file and be defined 


by a FILE statement in the OCL for the Library Maintenance 
program. Multivolume files are not supported. 


Output: The output from the file-to-library function is 
the same as for the reader-to-library function except that 
temporary entries are not allowed. 


Library-to-Library 

Input: The program can copy one or more library entries 
from one disk to another. The types of entries can be: 

1. Source statements 

2. Procedures 

3. Object programs 

4. Routines 

5. All the seceeetng types | 

6. Minimum system 


The NAME and LIBRARY parameters specify which entries 
to copy. 


Output 


@ The entries, regardless of their type, are copied from one 
' disk to the other without change. 


@ Entries can be copied and renamed on the same disk by 
using the NEWNAME parameter. (See VEWNAME 
parameter and Naming Library Entries.) 


@ Copying a minimum system (LIBRARY-O, NAME- 


SYSTEM) or all of the types (LIBRARY-ALL, NAME- 


ALL) are the functions used to create a system pack 


that can be used to perform initial program load 
(Copying LIBRARY-ALL, NAME-ALL will create a 
system pack only if the FROM pack is a system pack.) 
Because of this use, the object library on the disk you 
specify in the TO parameter must be empty (it cannot 
contain any entries or deleted entries). Also the object 
library on the TO pack must have been allocated with a 
scheduler work area and a roll-in/roll-out area at least as 


. large as those on the FROM pack. 


The RETAIN parameter specifies whether the entries 
will be temporary or permanent. If the RETAIN param- 
eter is omitted. RETAIN-T is assumed. When the 
parameters LIBRARY-ALL and NAME-ALL or 
LIBRARY-O and NAME-SYSTEM are used, RETAIN-P 
is assumed and RETAIN-T is invalid. 


Adding Entries 


You can omit the NEWNAME parameter. If you do, the 
name used for the copy is taken from the NAME param- 
eter. (The copy will have the same name as the original 
entry.) 


If NAME-ALL is specified, the names by which the 
entries are identified on the FROM disk are also used 
on the TO disk to identify the entries. 


Replacing Existing Entries 


The program can replace existing entries with the entries 
you are putting in the library. If the entry you are 
copying (the entry on the disk you identify in the 
FROM parameter) has the same name as the entry you 
are replacing (the entry on the disk you identify in the 
TO parameter), you must omit the NEWNAME param- 
eter because the NEWNAME parameter cannot be the 
same as the NAME parameter. If the names are not the 
same, you must use the NEWNAME parameter to give 
the name of the entry being replaced. 


The program can halt before replacing an existing entry. 
Whether it does depends on the RETAIN parameter 
(see RETAIN Parameter). 


® A temporary entry cannot replace a permanent entry. 


Library-to-Printer and/or Card 


Types of Entries that Can Be Printed or Punched 


@ The program can print or punch one or more library 


entries. They can be any one of the following types: 
1. Source statements 

2. Procedures 

3. Object programs 

4. Routines 

5. All of the preceding types (limited to entries 


having the same name and entries beginning with 
the same characters). 


The program can print (but not punch) the following 
types of directory entries: 


1. Source statements 

2. Procedures 

3. Object programs . 

4. Routines 

5. System directory 

6. All of the preceding types 

The program will sort directory names before printing 
them only if there is available work space on the FROM 
pack. This causes an allocation of disk space that counts 


toward the total of four allowable allocations. (See 
Index Entry A/location of Disk Space.) 
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Printed or Punched Library Entries 


@ Blanks and duplicate characters are re-inserted into source 


statements and procedures to make them readable. 


@ Object programs and routines are printed and punched 
after sequence information and checksum information 
(punch only) has been added. 


@ The library entries, when punched, are preceded by a 


// COPY statement of the reader-to-library format and 
followed by a // CEND statement. 
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Printout of Directory Entries 


@ The format of the system directory is shown under 


Sample System Directory Printout. \f there is no source 
library on the pack, the message NO SOURCE LIBRARY 
EXISTS ON THIS PACK is logged. If there is no object 
library on the pack, the message NO OBJECT LIBRARY 
EXISTS ON THIS PACK is logged. 


The format of the source library directory printout is 
shown under Source Library Directory. \f there is no 
source library on the pack, the message NO SOURCE 
LIBRARY EXISTS is logged. If a source library exists 
but is empty, the message NO SOURCE DIR ENTRIES 
EXIST is logged. 


The format of the object library directory printout is 
shown under Object Library Directory. \f there is no 
object library on the pack, the message NO OBJECT 
LIBRARY EXISTS is logged. If an object library exists 
but is empty, the message NO OBJECT DIR ENTRIES 
EXIST is logged. 


Sample System Directory Printout 


SOURCE 


SYSTEM DIRECTORY FROM RL VOLUME ID RIR1R1 10/20/73 


SOURCE LIBRARY SECTION 


DIRECTORY LOCATION 


NEXT AVAILABLE LIBRARY SECTOR 


END OF 
NUMBER 
NUMBER 
NUMBER 
NUMBER 


LIBKARY 

OF DIRECTORY SECTORS 

OF PERMANENT LIBRARY SECTORS 
OF ACTIVE LIBRARY SECTORS 

OF AVAILABLE LIBRARY SECTORS 


ALLOCATED SIZE OF LIBRARY 


— OBJECT 


UBJECT LIBRARY SECTION 


DIRECTORY LOCATION 


ALLOCATED SI7t OF DIRECTORY 


START 


OF LIBRARY 


ALLOCATED END OF LIBRARY 
EXTENDED END GF LIBRARY 


NUMBER 
NUMBER 


DF AVAILABLE PERMANENT DIRECTORY ENTRIES 
OF AVAILABLE TEMPORARY DIRECTORY ENFRIES 


FIRST TEMPURARY DIRECTORY ENTRY 

NEXT AVAILABLE TEMPORARY DIRECTORY ENTRY 

NEXT AVAILABLE LIBRARY SECTOR FOR PERMANENTS 
NEXT AVAILABLE LIBRARY SECTOR FOR TEMPORARIES 


NUMBER 
NUMBER 
NUMBER 
' NUMBER 
NUMBER 


OF AVAILABLE LIBRARY SECTORS FOR PERMANENTS 
OF AVAILABLE LIBRARY SECTORS FOR TEMPORARTES 
OF ACTIVE LIBRARY SECTORS 

OF ACTIVE OBJECT PERMANENT LIBRARY SECTORS 
OF ACTIVE ROUTINE PERMANENT LIBRARY SECTORS 


ALLOCATED SIZE OF LIBRARY 


ROLL-IN/ROLL-OUT LOCATION 
ROLL-IN/ROLL-OUT SIZE 


SCHEDULER WORK AREA LOCATION 
SCHEDULER WORK AREA SIZE 


START 
END OF 


OF LIBRARIES 


LIBRARIES 
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JQ8-00 
036-23 
047-23 


630 
5688 
265 

4) 


U55-00 
6 
061-90 
379-23 
319-23 
732 
697 


058-190-231 
058-13-210 


288-09 
296-21 
2199 
1995 
5495 
4693 
598 
325 


050-00 
5 


048-00 
T 


J08-00 
379-23 


171 


Using the System Directory to Determine if the Object 
Library Should Be Reorganized 


The following are not updated when an object library entry 


is deleted: 

© Number of available directory entries 

® Next available directory entry 

® Next available library sector 

© Number of available library sectors 

These reflect only contiguous space which can be used, 
therefore, gaps are not included. (See Organization of 
Library Entries, Object Library.) 

To calculate the total number of sectors that could be 
made available for permanent entries if the object library 


is reorganized, perform the following procedure (Take 
values from Sample System Directory Printout): 








de Determine the object library size in sectors 
Allocated size of library = 325 
Allocated size of directory = - 6 
Object library size (tracks) = 319 
x 24 
Object library size (sectors) = 7656 
2. Determine the number of permanent object library 
sectors 
Number of active object perm- 
anent library sectors = 4693 
Number of active routine perm- 
anent library sectors = +598 
Number of permanent object 
library sectors = 5291 
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3. Determine the number of contiguous sectors that 


will be available at the end of the library if the lib- 
rary is reorganized to remove all gaps and temporary 
library entries. 


Object library size (sectors) - 


from step 1 = 7656 
Number of permanent object 

library sectors from step 2 = -5291 
Number of available sectors = 2365 


4. Compare the number of available sectors calculated 


to the number of available library sectors for perman- 
ents. 


Number of available sectors 


from step 3 = 2365 
Number of available library 

sectors for permanents = -2199 
Difference in sectors = 166 


The difference (166) represents the amount of contiguous 
space that can be gained by reorganizing the object library. 


Source Library Directory 


Printout 


SOURCE DIRECTORY FROM XX VOL ID XXXXXX MM/DD/YY 


ADDRESS 
TYPE NAME FIRST@ LAST@ ATTRI #SECTORS 
X XXXXXX TTT-SS TTT-SS X XXXX 


Explanation 


Heading Meaning 


TYPE S=source statements 
P=procedure 


NAME . Name of library entry (up to six characters) 
ADDRESS Addresses of first and last sectors that contain the library entry. Addresses 
(FIRST and LAST) are expressed by track and sector numbers. EXAMPLE: 008-03 means 


track 8, sector 3. 


ATTRI (Attribute) ; , T=temporary 
P=permanent 


#SECTORS Total number of sectors used for the library entry. 
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Object Library Directory 


Printout 


OBJECT LIBRARY FROM XX 


DISK 
TYPE NAME ADD 


XX — XXXXXX  TTT/SS 


Explanation 


VOL. ID XXXXXX MM/DD/YY 


CYL/ TXT- LINK RLD ENTRY CORE TOT 
SEC CAT ADDR _ DISP PNT SEC ATTR LEVEL SEC 
CC/SS XXX XXXX XX XXXX XXX XXXX XXX XXXX 


Heading Meaning 


TYPE 


NAME 


DISK ADD 
CYL/SEC 


TXT-CAT 


LINK ADDR 


RLD DISP 


ENTRY PNT 


CORE SEC 
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The first character printed indicates the attributes of the entry as follows: 


P = permanent 
T temporary 


The second character printed indicates the type of module the entry is. 
Its meaning is as follows: 


O = object program 
R routine 


Name of library entry (up to six characters) 


Address where library entry begins on disk. EXAMPLE: 015/10 means 
track 15, sector 10 (in decimal). T = track, S = sector. 


Address where library entry begins on disk (in hexadecimal). C = cylinder, 
S = sector. 


For object programs, this number indicates the number of sectors used for 
the text portion of the library entry. Object programs consist of two parts: 
text and RLD. Text is the program or routine instructions. RLD is 
information used in loading the program for exeeution. 


For routines, this number is the category of the routine. This number is used 
by the Overlay Linkage Editor for determining overlays. 


Object programs only. Assigned hexadecimal core address of this library 
entry. 


Object programs only. It indicates the hexadecimal position in which RLD 
information begins in the last text sector. If the last text sector contains no 
RLD information, the RLD displacement is 0, indicating the information 
starts in the next sector. 


Object programs only. Main storage address (hexadecimal) where program 
execution begins before relocations. 


Core size given in sectors, required to run the program. 


« 


Heading Meaning | | 


ATTR Byte 1: 


Bit O0=1—Permanent entry 
Bit 0=O—Temporary entry 


Bit 1=1—Inquiry. This program requires that the Inquiry switch be operated 
to start processing. 


Bit 2=1—Inquiry invoking. This program runs in program level 1 and: 
can be rolled out to allow an Inquiry program to run. 


Bit 3 Reserved 
Bit 4=1—Source required. This program requires the allocation of the 
$WORK and $SOURCE files. $SOURCE must be filled either 


from the system input device or a source library. 


Bit 5=1—Deferred mount. This program accepts mounting of packs 
during its execution. 


Bit 6=1—PTF applied. A program temporary fix (PTF) has been applied 
to this program. 7 ge ae 


Bit 7=1—Overlay object program 
Byte 2: 


Bit O=1—System Input dedication. The system input device must be 
dedicated to this program. The device is released when no longer needed. 


Bit 1 Reserved 

‘Bit 2=1—Direct source read. This program can have a COMPILE state- . 
ment and a no-source-required attribute (byte 1, bit 4=0). 
The program will access the source itself. 

Bit 3-4 Reserved 

Bit 5=1—Program common. This program requires that a new load 
address be calculated at load time to place it in main storage 
beyond its own program common region. 


Bits 6-7 Reserved 


LEVEL Release level of system programs. For user programs this can be assigned 
in the Overlay Linkage Editor 


TOT SEC Total number of disk sectors occupied by the library entry 
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DELETE 


Uses 


Delete a temporary or permanent entry from a library 
(or entries with the same name from all libraries). 


Delete temporary or permanent entries that have names 
beginning with certain characters. 


Delete all temporary or permanent entries of a certain 
type. 


Control Statement Summary 


Delete Considerations and Restrictions 


The following apply to the delete function: 


System modules cannot be deleted from the active 
system pack (the pack the system was loaded from 
during IPL). 


When all temporary entries are deleted from the object 
library using LIBRARY-O,NAME-ALL,RETAIN-T, the 
temporary routines (LIBRARY-R) are also deleted. 


The RETAIN parameter must match the attribute of the 
entry in the library otherwise the entry is considered not 
found. RETAIN-T is assumed if the RETAIN parameter 
is omitted. 


Library Maintenance modules cannot be deleted from 
the active program pack. 


Delete a Temporary or Permanent Library Entry (or Entries with the Same Name from All Libraries) 


Ss 


P 
/{ DELETE FROM-code,LIBRARY-< 9 


R 
ALL 


-NAME-name,RETAIN- {2 \ 


T 


Delete Temporary or Permanent Entries With Names Beginning With Certain Characters 


// DELETE FROM-code, LIBRARY- 


s 
Pp 
O 


R 
ALL 


Delete All Temporary or Permanent Entries of a Certain Type 


// DELETE FROM-code,LIBRARY- 


176 


~NAME-characters.ALL,RETAIN- i i 





T 


NAME-ALLRETAIN-{7 


Delete Parameters 


' Parameter Meaning 


R1 4 
FROM- 2 Location of disk that contains library entries you are deleting. Possible codes are: 
ee Code Meaning 
R1 Removable disk on drive one 
F1 Fixed disk on drive one 
R2 Removable disk on drive two 
F2 Fixed disk on drive two. 
Ss 
P 
LIBRARY-< O Type of entries being deleted. Possible codes are: 
R 
ALL Code Meaning 
S Source statements (source library) 
P Procedures (source library) 
O Object programs (object library) 
R Routines (object library) 
ALL All types of entries (S, P, O, and R) are being deleted. 
name 
NAME- <characters. ALL ' Particular entries, of type indicated in LIBRARY parameter, being deleted. These . 
ALL entries are further identified by the RETAIN parameter. Possible codes are: 
Code Meaning 
name Name of the library entry, or entries, being deleted. 
characters.ALL Entries that have names beginning with the indicated characters. 
You can use up to five characters. EXAMPLE: NAME-INV.ALL 
refers to the entries having names that begin with INV. 
ALL All entries (of the type indicated in LIBRARY parameter). 
NAME-ALL cannot be used with LIBRARY-ALL. 
a 
RETAIN- Designation of entries being deleted: 
P 
Code Meaning 
T Temporary 
P Permanent : 
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MODIFY 


Uses 


The Modify function is intended primarily for maintenance 
of source statements and procedures by using card input. 
The Modify function can be used to: 


Reserialize a source library entry. 

List the statements in a source library entry. 
Remove statements from a source library entry. 
Replace source library statements. 


Insert statements into a source library entry. 


Modify Considerations and Restrictions 


e At least three contro! statements must be entered to 


modify the source library. A// MODIFY statement is 
needed to describe the library entry. A// REMOVE, 
// REPLACE, or // INSERT statement describes the 
type of modification. A// CEND statement indicates 
the end of the MODIFY control statements. 


The disk specified by the WORK parameter in the 

// MODIFY statement must contain a work area 

large enough to hold the modified source library entry. 
The sequence numbers specified by the FROM-seqno, 
TO-seqno, and AFTER-seqno parameters on the 

// REMOVE, // REPLACE, and // INSERT statements 
must be valid numbers and exist in the source library 
entry. There are no default values for these parameters. 
The number of digits entered must be the same as the 
number of positions specified by the SEQFLD 
parameter. 


All statements in a source library entry must have 
ascending sequence numbers in the positions specified 
by the SEQFLD parameter. 
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Multiple operations (REMOVE, REPLACE, INSERT) 
may be performed within the same MODIFY run if they 
are done in an ascending sequential order. That is, the 
FROM sequence number in a REMOVE or REPLACE 
statement must be greater than the last sequence num- 
ber in the preceding statement. The AFTER sequence 
number of an INSERT statement must be equal to or 
greater than the last sequence number of the preceding 
statement. Consecutive INSERT statements must not 
have the same sequence number. 


When modification is complete, the directory entry 
is written back with a permanent attribute. 


~The control statements following the // MODIFY state- 


ment are read from the system input device. 


Sequence numbers are a physical part of the source 
record and must be placed where they will not conflict 
with other data in the record. In a. procedure the 
sequence numbers should be placed near the end of the 
record beyond the OCL and utility control statement’s 
keywords and parameters. 


Invalid responses may result for OCL procedures with 
delayed responses, because when the procedure is called, 
the sequence number may be recognized as the response. 


The sequence numbers should be placed in source state- 
ments where they will not overlay data. For example, 
data could be destroyed if sequence numbers were 
placed in RPG II source statements that contained 
compile-time tables. If the statement contains table 
data in positions 1-85, the sequence numbers for the 
source module shouid begin after position 85 (86-96). 


Since the REMOVE control statement is valid for both 
the $DELET utility and $MAINT utility, care should 
be used when modifying a $DELET procedure. The 
program will attempt to determine if the REMOVE 
statement is data or if it is a control statement. Ifa 
determination cannot be made, the program will halt 
and wait for further instructions. 


If LIST-YES is specified and a printer error occurs during 
the listing of the source library entry, responding to the 
halt with a 2 option wil! cause the listing to stop. The 
modified entry will then be placed back into the library 
before terminating the function with a controlled cancel. 


Control Statement Summary 


Initiate Modification 


YES 
YES 
4 ,WORK-code,RESER- < NO ,LIST- { ;: 


// MODIFY NAME-name,-FROM-code,LIBRARY- 
F ONLY NO 


SEQFLD-xxyy,INCR-number 
“Control Statements Following // MODIFY 
Delete all statements between and including the FROM and TO sequence numbers. 
| il REMOVE FROM-seqno,TO-seqno 
» Replace all statements between and including the FROM and TO sequence numbers with the statements supplied. 


/| REPLACE FROM-seqno,TO-seqno 


1-n statements to replace those removed 


Insert the supplied statements after the statement indicated by the AFTER parameter. 
// INSERT AFTER-seqno 
1-n statements to be inserted 


Terminate Modification 


// CEND must follow the control statements to terminate the modify function. 
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Modify Parameter 


Parameter Meaning 


NAME-name Name of the entry you are moditying. This is the name that identifies the entry 
in the library directory. 


FROM-code Location of the disk that contains the entry you are modifying. Possible codes are: 
Code Meaning 
R1 Removable disk on drive one 
F1 Fixed disk on drive one 
R2 Removable disk on drive two 
F2 Fixed disk on drive two 
LIBRARY- ey Type of library entry you are modifying. Possible codes are: 
Code Meaning 
$s Source statements (source library) 
P Procedures (source library) 
WORK-code Location of the disk containing space the program can use as a work area. Possible 
codes are: 
Code Meaning 
R1 Removable disk on drive one 
F1 Fixed disk on drive one 
R2 Removable disk on drive two 
" F2 Fixed disk on drive two 
YES 
RESER-<NO Specifies whether reserialization should be done when the entry is placed back in the 
ONLY source library. Possible information is: 
Information Meaning 
YES Reserialization is done. 
NO Reserialization is not done. NO is assumed if the RESER parameter 
is omitted. , 
ONLY Reserialize only; no other maintenance is done. When this is coded, 
no REMOVE, REPLACE, INSERT, or CEND statements can be 
entered. 
YES re , . oes : 
LIST- NO Specifies whether the source library entry should be listed as the modified entry is 
~S placed back into the source library. NO is assumed if the LIST parameter is omitted. 


SEQFLD-xxyy The starting and ending positions of the field that contains the sequence number. The 
sequence number can be up to eight digits long. The starting position is entered first 
(xx) and then the ending position (yy). If this parameter is not entered, 9296 is 
assumed. 


INCR-number Increment value for sequence field if reserialization (RESER-YES or RESER-ONLY) is 


specified. The value can be up to five digits. If this parameter is not entered, a value 
of 10 is assumed. 
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' Remove, Replace, Insert Parameters 


Parameter Meaning 


FROM-seqno The sequence number of the first 
statement to be used in the 
operation. 

TO-seqno The sequence number of the last 


statement to be used in the 
operation. 


AFTER-seqno 
ment after which the new state- 
ments are to be added. 


RENAME 


Uses 
@ Change the name of a library entry. 


© Change the names of library entries that have names 
beginning with certain characters. 


Rename Considerations and Restrictions 


@ System modules should not be renamed on the active 
system pack (the pack that the system was loaded 
from during IPL). 


@ Library Maintenance modules should not be renamed 
on the active program pack. 
Control Statement Summary 


Change the Name of a Library Entry or Entries with 
‘the Same Name in All. Libraries 






Ss 


// RENAME FROM-code,LIBRARY- 2° 5, 


NAME-name,NEWNAME-name 











Change the Name of Library Entries that have Names 
Beginning with Certain Characters 











s 

-/] RENAME FROM-code,LIBRARY-¢? } 
NAME-characters.ALL, O 
NEWNAME-characters R 






The sequence number of the state- 


Rename Parameters 


Parameter Meaning 


FROM-code Location of disk that contains the entry 
you are renaming. Possible codes are: 
Code Meaning 
R1 Removable disk on drive one 
Fl Fixed disk on drive one 
R2 Removable disk on drive two 
s F2 Fixed disk on drive two | 
LIBRARY Type of library entry you are renaming. 
R Possible codes are: 
Code Meaning 
S Source statements (source 
library) 
P Procedures (source library) 
oO Object programs (object library) 
R Routines (object library) 
NAME-name Current name of the entry you are re- 


naming. This is the name that identifies 
the entry in the library directory. 
NAME-characters.ALL Only those entries beginning with the 
indicated characters. (You can use up 
to five characters.) 
NEWNAME-name New name you want to give the entry. 
Follow these rules to construct the name: 


1. You can use any System/3 charac- 
ters except blanks, commas, quotes, 
and periods. (Appendix A lists the 
characters.) The names of most 
IBM programs begin with a dollar 
sign ($). Therefore, to avoid 
possible duplication, do not use a 
dollar sign as the first character in 
the names you use for your entries. 
The first character must be 
alphabetic. 


2. You can use up to six characters, 
but you cannot use the names ALL, 
DIR and SYSTEM. They have 
special meanings in the NAME 
parameter. 
NEWNAME-characters Beginning characters you want to use in 
names identifying the copies. (You can 
use up to five characters.) 
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OCL CONSIDERATIONS 


LOAD Sequence 
Keywords @ Responses @ ~ Considerations 
READY LOAD None 
LOAD NAME S$MAINT Name of Library Maintenance program. 
UNIT R1, R2, F1, or F2 Location of disk containing Library Maintenance program. 
MODIFY RUN None 


Qo Only the keywords listed here are required. You can bypass the rest, unless the copy file-to-library function is to be 
used. The FILE keywords must be responded to, to define the file. 


& You end every response by pressing PROG START. 


BUILD Sequence 
Keywords 1) Responses} Considerations 
READY BUILD None 
BUILD NAME procedure name Name by which procedure will be identified in source 
library. 
UNIT R1, R2, F1, or F2 Location of disk containing source library. 
LOAD NAME $MAINT Name of Library Maintenance program. 
UNIT R1, R2, F1, or F2 Location of disk containing Library Maintenance program. 
_ MODIFY INCLUDE Response when including control statements in procedure. 
| utility control statements 
OR RUN 
RUN Response when not including control statements in 
procedure. 


Qo Only the keywords listed here are required. You can bypass the rest, unless the copy file-to-library function is to be 
used. The FILE keywords must be responded to, to define the file. 


® You end every response by pressing PROG START. 


182 


ALLOCATE EXAMPLES 


Creating Both Source and Object Libraries on a Disk 


Statements 


_ READY 


RKEEKKEKEKKEKKEKEKEKKKEKEKE 





‘010  $$LOAD NAME OCL LOAD Sequence. 
011 | UNIT Boxed areas are operator responses. 
a a : Soni seems ees 
sas ers . RUN is the response to MODIFY 
040 FILE NAME - even though the two words do not 


appear on the same line. 


RREEKKEKKEKKEKRKREKKRKEKE 


MODIFY = 






te am i M d by Library M 
essage printed by Library Maintenance 
ENTER '//' CONTROL STATEMENT } program. 


Control statement supplied 


// ALLOCATE TO-R1,SOURCE-12 ,OBJECT-45 ,SYSTEM-YES \ en eectcn 


| Program creates libraries, then asks for another 
1 1 ' 
ENTER '//' CONTROL STATEMENT } ee 
| \ END statement, supplied by operator, ends 
// END the program. 
Explanation 


@ Library Maintenance program is loaded from the fixed disk on drive 1 (UNIT-F1 in OCL sequence). 
@ Libraries are being created on the removable disk on drive 1 (TO-R1 in ALLOCATE statement). 
@ Source library space is twelve tracks long (SOURCE-12). 


© Object library space is 45 tracks long (OBJECT-45). The object library will contain system programs (SYSTEM-YES). 
Thus, the disk area will also include space for the Scheduler work area. _ 
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Changing the Size of a Source Library 


| Statements 


READY = 


KKKKEKKKEKEKKEKEEREREREE 


010 LOAD NAME - 





011 UNIT - 
020 DATE = 
030 SWITCH = 
040 FILE NAME - 


KKEEKEKKREKRKKREKRKEREKREKE 


MODIFY - 





ENTER '//' CONTROL STATEMENT 
// ALLOCATE TO-R1,SOURCE-15 ,WORK-F1 


ENTER '//' CONTROL STATEMENT 


// END 


Explanation 


OCL LOAD Sequence. 


Boxed areas are operator responses. 


Keywords for which no responses 
are shown are the ones bypassed. 


RUN is the response to MODIFY 
even though the two words do 
not appear on the same line. 


Message printed by Library Maintenance 
program. 


Control statement supplied by operator. 


Program changes size of library, then asks 


for another control statement. 


End statement, supplied by operator, ends 
the program. 


© Library Maintenance program is loaded from the fixed disk on drive 1 (UNIT-F1 in OCL sequence). 


@ Source library is located on the removable disk on drive 1 (TO-R1 in ALLOCATE statement). 


© Size of the source library is being changed to 15 tracks (GOURCE-15). 


© Any time the program changes the size of a source library, it reorganizes the library. To do this, it needs a work area. 


This area is on the fixed disk on drive 1 (WORK-F1). 
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Deleting the Object Library From a Disik 


Statements 


READY 


KERKEKKEREKKRERRKEKREKEKEKER 


010 LOAD NAME OCL LOAD Sequence. 





011 UNIT Boxed areas are operator responses. 
0 2 0 DATE - Keywords for which no responses are 
shown are the ones bypassed. 
030 SWITCH - 
RUN is the response to MODIFY 
040 FILE NAME -_ even though the two words do 


not appear on the same line. 
KREKKKKKEKEKKKRKRKKKEKREKKEEKE 


MODIFY 





ENTER '//' CONTROL STATEMENT Message printed by Library Maintenance 

program, 

// ALLOCATE TO-R1,OBJECT-0 Control statement supplied by operator. 

ENTER we 1 CONTROL STATEMENT Program deletes library, then asks for 

another control statement. 

// END END statement, supplied by operator, ends 
the program. 

Explanation 


@ Library Maintenance program is loaded from the fixed disk on drive 1 (UNIT-F1 in OCL sequence). 
© Object library is located on the removable disk on drive 1 (TO-R1 in ALLOCATE statement). 


© OBJECT-0 parameter tells the program to delete the object library. If a scheduler work area precedes the object library, 
it is also deleted. 
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COPY EXAMPLES 


Copying Minimum System from One Disk to Another 


Statements 


READY 


KKK KKK RRR KKK KRKEKRKKRKRKEKRREE 





010 LOAD NAME _OCL LOAD Sequence. 
O11 UNIT Boxed areas are operator responses. 
020 DATE > Keywords for which no responses are 
ae ere _ shown are the ones bypassed. 

RUN is the response to MODIFY 
040 FILE NAME = 


even though the two words do not 


ine. 
KKK RE KR RRR RK RRR RRRRREKK appear on the same li 


MODIFY 





Message printed by Library Maintenance 
ENTER '//' CONTROL STATEMENT Sen | 
Control statement supplied 
by the operator. 
Program copies programs, then asks 


for another control statement. 


// COPY FROM-F1,LIBRARY-O ,NAME-SYSTEM ,TO-R1 


ENTER '//' CONTROL STATEMENT 


END statement, supplied by operator, ends 
the program. 


// END 


Explanation 


@ Library Maintenance program is loaded from the fixed disk on drive 1 (UNIT-F1 in OCL sequence). 


@ System programs are in the object library on the fixed disk on drive 1 (LIBRARY-O and FROM-F1 in COPY statement). 


The NAME parameter (NAME-SYSTEM) tells the program to copy the system programs. 


@ The disk that is to contain the copy is the removable disk on drive 1 (TO-R1). 
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Printing Library Directories 


Statements 


READY - 


RERRKEKEEKEEEKRKRKERKREKEREEKREEE 


010 


O11 


920 


030 


040. 


RRKEKRKEKEKREERKERKRKEEEKREEEKRE 


MODIFY 





LOAD NAME oc 
OCL LOAD Sequence. 





UNIT - 
Boxed areas are operator responses., 
DATE = . 
; Keywords for which no responses 
SWITCH - are shown are the ones bypassed. 


RUN is the response to MODIFY 
even though the two words do 
not appear on the same line. 


PILE NAME = 





ENTER '//' CONTROL STATEMENT Message printed by Library Maintenance 


// COPY FROM-R1,LIBRARY-ALL,NAME-DIR,TO-PRINT,OMIT-$.ALL 


program. 
Control statement supplied 


by the operator. 


ENTER '//' CONTROL STATEMENT Program prints directories, then asks for 
another control statement. 
// END | END statement, supplied by operator, ends 
the program. 
Explanation 


© Library Maintenance program is loaded from the fixed disk on drive 1 (UNIT-F1 in OCL sequence). 


@ All library directories and the system directory on the removable disk on drive 1 are printed (COPY statement): 


1. 


2. 


FROM identifies the disk containing the directories. 
LIBRARY indicates which directories are to be printed. 
NAME and TO indicates that the program is to be printing directories. 


Entries beginning with a $ are not printed. 
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Replacing a Library Entry: Replacement Coming From Another Disk 


Situation 

Assume that you have two versions of an object program: 
1. New version on the removable disk on drive 1. 

2. Old version on the fixed disk on drive 1. 


Both versions have the same name (ACCT) and designation (permanent). You want to replace the old version with the new 
version. 





Statements 
READY 
KKEKKKKEKKEKKRKKEK KEKE KKKKKEKEE OCL LOAD Sequence 
010 LVAD NAME 
Boxed areas are operator responses. 
O11 UNIT 
i Keywords for which no responses are 
020 DATE - shown are the ones bypassed. 
030 SWITCH - RUN is the response to MODIFY 
even though the two words do 
040 FILE NAME 7 not appear on the same line. 
KEKKKKKEKEKKKKEKRKKEEKEKREKEEE 
MODIFY = 
NTER '//' CONTROL STATEMENT Message printed by nibeaty, Maintenance 





program. 


// COPY FROM-R1,LIBRARY-O,NAME-ACCT,TO-F1,RETAIN-R an cea supplied 
p : 


ENTER '//' CONTROL STATEMENT Program replaces library entry, then asks for 
another control statement. 
// END END statement, supplied by operator, ends the 
program. 
Explanation 


@ Library Maintenance program is loaded from the fixed disk on drive 1 (UNIT-F1 in OCL sequence). 


© LIBRARY-O, NAME-ACCT, and FROM-R1 in the COPY statement tell the program to read the object program named 
ACCT from the removable disk on drive 1. 


© TO-F1 tells the program to copy the object program to the fixed disk on drive 1. There is no NEWNAME parameter in 
the COPY statement. Therefore, the name the program will have on the fixed disk is ACCT (NAME-ACCT). Since the 


old version of the program already exists on the fixed disk under that name, the old version is replaced. 


@ The Library Maintenance program normally halts before replacing a library entry. The RETAIN-R parameter, however, 
‘tells the program to omit that halt. 
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Copying a Disk File To a Library 





Statements 
READY | OAD 
cu ener 6S A OK EE OE 2h OCL LOAD Sequence 
010 LOAD , NAME- 
So dented. tpaiouiaenias UNIT— Boxed areas are operator 
responses. 

030 SWITCH (00000000 ) on 

- 040 FILE | NAME- Keywords for which no re- 
O41. UNIT- sponses are shown are the 
aS ere ones bypassed. 
oo fe ste ste 5! i sack Dt ee at) le ste ste ste ste 3! ste sle dle ste le RUN is the eee re re 
ale HE IS PS BE IS BE IE I IS AS AS AIS TE IS NE IS BE DIS AIS DIC FHS IK SIS BIC SIS OK IC AK OKC IS. OK 3k OK OE 2K MODIFY even though the: 


two words do not appear 
on the same line 






Message printed by Library 
. Maintenance program. 


NTER'//! CONTROL STATEMENT 


COPY FROM-DISK, TO-F,RETAIN-P ,FILE-BSCAFILE | Control statement supplied 
by operator. 

XX. COPY LIBRARY-P,NAME-PAYREC 

XX COPY LIBRARY-O,;NAME-PAYREC 


Control statements from disk 


file. 
XX END 
Program copies programs, then 
: asks for another control state- 
ENTER '//' CONTROL STATEMENT ment. 
// END END statement, supplied by 


operator, ends the program. 


Explanation 
@ The OCL for a File-to-Library copy must contain a FILE statement for the disk file. 


@ The filename on the // COPY statement (FILE-BSCAFILE) matches the filename on the OCL FILE statement 
(NAME-BSCAFILE). ; 


@ The // COPY statement does not contain a RECL parameter, so a record length of 96 is assumed. 

@ All source and object decks in the disk file must have a // COPY statement as the first card image and a // CEND state- 
ment as the last card image. These // statements (including the // END statement) are logged with XX replacing the 
// to indicate they were read from disk rather than from the system input device or a procedure. 

© The // END statement read from the file (printed XX END), causes the next statement to be read from the system input 


device or procedure. A // END statement must still be read from the system input device or procedure to indicate the 
end of the Library Maintenance control statements. 
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Copying a Procedure From the System Input Device 


Statements 
READY- 
KEEKKEKKRKEK KKK KK KKKEKRKKREKE 
010 LOAD NAME - 
011 UNIT-—- 


020 DATE (11/27/73) - 
030 SWITCH (00000000) - 
040 FILE NAME- 
KKK KERR KEKE RE RKE RK KK REKR ER EKER EE 


MODIFY 





if 


// 


ENTER '//‘ CONTROL STATEMENT 


COPY FROM-READER,TO-F1,LIBRARY-P ,NAME-COPYF1 


LOAD SCOPY,F1 

RUN 

COPYPACK FROM-F1,TO-R1 
END 


*CEND 


ENTER '//' CONTROL STATEMENT 


END 


Explanation: 


© FROM-READER tells the Library Maintenance program 


to read the statements from the system input device. 


© The procedure (LIBRARY-P) is written to the source 


library on F1 (TO-F1), named COPYF1 (NAME- 


COPYF 1), and given the default attribute of temporary. 


e All statements following the // COPY statement are 


entered into the library until the // CEND statement is 


read to terminate the copy. 
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} 


OCL LOAD Sequence 


Boxed areas are operator 
responses. 


Keywords for which no 
responses are shown are 
the ones bypassed. 


RUN is the response to 
MODIFY even though the 
two words do not appear 
on the same line. 


Message printed by Library 
Maintenance Program. 


Control statement supplied 
by the operator. 


Procedure copied to the 
source library. These 
statements are supplied 
by the operator. 


Message printed by Library 
Maintenance Program asking 
for another control 
statement. 


END statement, supplied 
by operator, ends the 
program. 


DELETE EXAMPLES 
Deleting a Temporary Entry From a Library 
Statements 


- READY - 


KRRKKEKKKEKEKEKKEKEKREKEKEKKEKKKEKESR 





O10 LOAD NAME ~~ - 
011 UNIT = 
020 DATE = 
030 SWITCH - 
040 FILE NAME : 


RREKEKEKRERKEKRKRKEKEKEEKREKEKRKEKKRKEKEEK 


MODIFY = 





ENTER '//' CONTROL STATEMENT 


// DELETE FROM-R1,LIBRARY-S ,NAME-PAYROL 


ENTER '//' CONTROL STATEMENT 
// END | 
Explanation. 


OCL LOAD Sequence 
Boxed areas are operator responses. 


Keywords for which no responses are 
shown are the ones bypassed. 


RUN is the response to MODIFY 
even though the two words do 
not appear on the same line. 


Message printed by Library Maintenance 
program. 


Control statement supplied by operator. 


Program deletes library entry, then asks 
for another control! statement. 


END statement, supplied by operator, ends 
the program. 


@ Library Maintenance program is loaded from the fixed disk on drive 1 (UNIT-F1 in OCL sequence). 


@ The program deletes a set of source statements (LIBRARY-S in DELETE statement) named PAYROL (NAME-PAY ROL) 


from the removable disk on drive 1 (FROM-R1). 


@ The absence of a RETAIN parameter implies that the entry designation is temporary. If the designation were permanent, 


RETAIN-P would have been required. 
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Deleting All Temporary Entries With Names That Begin With Certain Characters 


Statements 


READY 


KRRKEREREKRERRREKERERKEERKEKKEREEE 





010 LOAD NAME 
OCL LOAD Sequence 
O11 UNIT 
| Boxed areas are operator responses.. 
020 DATE i 
Keywords for which no responses aré 
030 SWITCH = shown are the ones bypassed. 
040 FILE NAME = RUN jis the response to MODIFY 


even though the two words do 


KRREKKEKKREKRERRERRERKERKERKEEE not appear on the same line. 


_ MODIFY 


ie '//* CONTROL STATEMENT Message printed by Library Maintenance 
program. — 


// DELETE FROM-R1,LIBRARY-ALL,NAME-INV.ALL Control statement supplied by operator. 


ENTER '//' CONTROL STATEMENT Program deletes entries, then asks 
for another control statement. 


// END END statement, supplied by operator, 
ends the program. 


Explanation 
© Library Maintenance program is loaded from the fixed disk on drive 1 (UNIT-F1 in OCL sequence). 


@ The entries being deleted are on the removable disk on drive 1 (FROM-R1 in DELETE statement). 


@ The program deletes all entries from both source and object libraries (LIBRARY-ALL) that have names beginning with 
the characters INV (NAME-INV.ALL). 


@ The absence of a RETAIN parameter implies that temporary entries are being deleted. 


_ 
oi 
ND 


Deleting All Permanent Library Entries of One Type 


Statements 


READY 


RRKEKEKEEKRRERKKRERKEKRKERKKREKRER 


010 | LOAD NAME OCL LOAD Sequence 


' Boxed areas are operator responses. 





O11 UNIT 


- Keywords for which no responses are 
020 DATE ~ shown are the ones bypassed. 
030° SWITCH ~ , 
. ~ RUN is the response to MODIFY 
040 FILE NAME - - even though the two words do 


not appear on the same line. 
KREKKKKKEKRKEKEKKEKKEKKEKKKEE 


MODIFY = 





ENTER '! Jf CONTROL STATEMENT Message printed by Library Maintenance x 
program. 
// DELETE FROM-R1,LIBRARY-P ,NAME-ALL, RETAIN-P Control statement supplied by operator. 


ENTER '//' CONTROL STATEMENT Program deletes entries, then asks for another 
control statement. 


// END END statement, supplied by operator, ends 
the program 


Explanation 
@ Library Maintenance program is loaded from the fixed disk on drive 1 (UNIT-F1 in OCL sequence). 
@ The entries being deleted are on the removable disk on drive 1 (FROM-R1 in DELETE statement). 


@ All permanent procedures are being deleted from the source library (LIBRARY-P,NAME-ALL,R ETAIN-P). 
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MODIFY EXAMPLES 


Replacing Statements in a Procedure 





Statements 
OCL LOAD Sequence 
Boxed areas are operator 
READY- responses. 
DR 24S OC OIC Oi af He aie 3c ae fe IC a afk ae aie ake afc afc ae ic afk fe aie a SIS 2k aie ac IC OK ofc 2c Is 3 2 DAE AE AEE OE A AE NC OE AS OK OK KE OC OIC AS OE oe 
010 LOAD NAME- Keywords for which no re- 
014 UNIT- sponses are shown are the 
020 DATE (XX/XX/XX) = ones bypassed. 
030 SWITCH (00000000) 7 
040 FILE NAME- RUN is the response to 


DS DIS BIS AIS BIC AIS OIC OK IS AS NE I OI OIE OIE OIC OIC BC OC OC OIE ie ae Ae ik 2c 2c ae 2K 2K KC a ak ok ok aie ak aK ac 2 MODIFY even though the 
two words do not appear on 
the same line. 

{ Message printed by Library 

Maintenance program. 


3c 
2 
2 
3 
+ 
4 


HE AC BC IC AS IC BIE OIE DIE AI IC IC BIC OE AK AK OIC IE AE IE OIE 2 


“Y 









NTER '//* CONTROL STATEMENT 


// MODIFY NAME-PROCOL,FROM-R2;,LIBRARY-P »WORK-R1yRESER-NO;,LIST-YES 
// REPLACE FROM-00101,TO-00102 


// FILE NAME-INV+ PACK-VOL2,UNI T-R1L;,RECORDS-300,RETAIN-P 00101 eae en apes uERIeaDY 

// FILE NAME-WORK; PACK-VOL2,UNTI T-R1i 00102 pefator: 

// CEND . 

// LOAD BUILD,FL 00100 

// FILE NAME-INV,PACK-VOL2,UNIT-R1,RECORDS—-300,RETAIN-P 00101 . i set 

// FILE NAME-WORK,PACK-VOL2,UNIT-R1 00102 Cae eee 

// RUN 00103 ate or another control state- 
ENTER '//' CONTROL STATEMENT ENBistiterent-sinplies by 

// END operator, ends the program 


Explanation 

@ The procedure named PROCO1 on disk drive R2 is being modified. 
@ The work space will be on R1. 

@ The sequence numbers are in default positions 92-96. 

@ Statements with sequence number 00101-00102 are being replaced. 
@ The module is not reserialized. 


@ The module is listed. 
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Removing Source Statements From a Module 


Statements 


Removing Source Statements From a Module. 
: OCL LOAD Sequence 






READY- 

24. HE KE He IC 2k 3K IK BC OC 2 KK IC 2K 2K IK IS KK 2K IK IK DIC SIE KIS OIE OS DI SIE OI OI IK 2S OK OS eK 

O10 LOAD NAME- Boxed areas are operator responses. 

O11 _ UNIT- 

020 DATE (XX/XX/XX) - Keywords for which no responses are shown are the ones 
"030 SWITCH (00000000) - bypassed. 

040 FILE NAME- 

dhe He fe ie He ik ae akg og ake oie ake ic ae fe afc ake ake ake afc afk fs afk ake ake akc alk ok ok ak ak afk a ak akc ok ak ake afk af ak afk ak ak afk kk 2 RUN is the response to MODIFY even though the two 

MODIFY words do not appear on the same line. 

t) 






NTER 1/7 CONTROL STATEMENT t Message printed by Library Maintenance program. 


// MODIFY NAME-INPUTL;,FROM-R1L;,LIBRARY-S;WORK-R1yRESER-YES, 


// LIST-NO,SEQFLD-0105, INCR-1 Cc , i dat ‘i 
7/7 REMOVE FROM-00124,TO-00156 ontro! statements supplied by the operator. 
// CEND 
ENTER '//' CONTROL STATEMENT : { Program removes statements, then asks for another 
control statement. 
// END 
END statement, supplied by operator, ends the program. 
‘Explanation 


@ The source module named {NPUT1 on disk drive R1 is being modified. 
© The work space will be on R1. 

«’ The sequence numbers are in positions 1-5 of the statements. 

@ Sequence numbers 00124-00156 are being deleted from the module. 

® The module is reserialized with increments of one. 


@ The module is not listed. 
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Inserting a Statement in a Source Module 









‘Statements 
OCL LOAD Sequence 
READY- 
oie ole ate ale ole ate ate af ole ole stk ake akg og ole otk afk alk ole ole ale ox ak otc alk aig og aie atc fk afk ok oie ic akc of Boxed areas are operator 
O10 LOAD NAME- responses. 
O11 UNIT- 
O20 DATE (XX/XX/XX) “= : Keywords for which no re- 
030 SWITCH (00000000) = sponses are shown are the ones 
040 FILE NAME- bypassed. 
BE AE IE BIC IC BIE IK DKK DIC BIE BK OIE DIS DIS DIC DIK DIK DIE BIE BIC OIE SIE OC OIE TIE IK IS DI SIS DIC OIE OIE OE AS OIE OIC SKC OK ONE OK IC OK OK IC oi 
MODIFY ; RUN is the response to MODIFY 
even though the two words do 
not appear on the same line. 
'//* CONTROL STATEMENT Message printed by Library Maintenance program. 
// MODI FY FROM-F1L,WORK-Fi,»NAME-COST; LIBRARY-S ’ Control 
// RESER-YES,SEQFLD-8084,LIST-YES a atenients 
// INSERT AFTER-00070 eippliediby 
O0d080! 3 8 DATE 


the operator. 


// CEND 
4 


Source module listed with new entry 


Program inserts statements, then asks for another control 
statement. 


ENTER '//' CONTROL STATEMENT 


// END END statement, supplied by operator, ends the program. 


Explanation 

@ The source module COST on fixed disk drive one is being modified. 
© The work space is on F1. 

@ The sequence numbers are in positions 80-84 of the statements. 


-@ A statement is being inserted after statement number 00070. 


The module is reserialized with the default increment value of 10. 


The module is listed. 
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RENAME EXAMPLE 
Renaming a Set of Source Statements in a Source Library 


Statements 


READY a | = 


2c 3 2c aie 2 ai a akc a akc 2k ak 2 ak 2 ak 2 ak ak ac ok akc ok 2k 3c ak ok ak 
| OCL LOAD Sequence 





010 LOAD . NAME - 
- : ; Boxed areas are operator responses. 
O11 3 UN it = . 
Keywords for which no responses are 
020 DATE neg i shown are the ones bypassed. 
030 SWITCH | a RUN is the response to MODIFY 
e ” een even though the two words do 
040 FILE ~~ NAME - not appear on the same line. 


BIE DIC OIC SI IE OS DE DI OK OC IC IC OK SIR DK 2 IC I 2 OIC KOE IS DIRK BK 2 DIK 3K 3S 3S 2K 


MODIFY : 2 








Message printed by Library waintenance 
program. 


ENTER '//*' CONTROL STATEMENT $ 
Control statement supplied 


// RENAME FROM-RLy LIBRARY-S y NAME-ACC Ts NEWNAME-ACCTI by operator. 


ENTER '//* CONTROL STATEMENT f Program renames entry, then asks for 


another control statement. 


// END t END statement, supplied by operator, ends 
the program. . 


Explanation 

@ Library Maintenance sata is loaded from the fixed disk on drive 1 (UNIT-F1 in OCL sequence). 

@ The removable disk on drive 1 contains the entry being renamed (FROM-R1 in RENAME statement). 

@ The entry is a set of source statements in the source library (LIBRARY-S). Its name is ACCT (NAME-ACCT). 


@ The entry name is being changed to ACCT1 (NEWNAME-ACCT1). 
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IBM System/3 Standard Character Set 


Appendix A 











2 








Hexadecimal 
Equivalent 








— (underscore) 


‘ (Apostrophe) 


Character 
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Appendix B: Records — Tracks Conversion 


For Sequential or Direct Files Step 2. (Tracks Required for Index) 


To determine how many tracks will be required for a A. Key Field length + 3 = index entry length. 
sequential or direct file: 
‘A B. 256 (number of characters in a sector) + 
1. Number of records x record length = total number index entry length = number of entries per 
of characters. sector. (Round result down to nearest 
: whole number.) 
2. Total number of characters + 6144 (number of 
characters in a track) = number of tracks. (Round C. Number of records + number of entries per 
result up to nearest whole number.) sector = number of sectors. (Round result 
up to nearest whole number.) 


For Indexed Files D.. Number of sectors + 24 (number of sectors 
per track) = number of tracks. (Round re- 

To determine how many tracks will be required for an sult up to nearest whole number.) 

indexed file: 


Step 3. (Total Track Requirement) 
Step 1. (Tracks Required for Data) 
Result of step 1 + result of step 2 = total number 
A. | Number of records x record length = total of tracks required for the indexed file. 
number of characters. 


B. Total number of characters + 6144 = number 


of tracks. (Round result up to nearest whole 
number.) 
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Appendix C: Disk Organization 


Disk Area Contents 
VTOC* Detailed information about each file on disk 
Source Library Source Library Directory 


RPG I! Source Programs 
Disk Sort Specifications 
Procedures 


KSE Input (Format Descriptions or Source Statements) 


Object Library Object Library Directory 
Compiled Programs 
System Programs 


Files User files 
System files 


*Volume Table of Contents 


Volume Table of Contents (VTOC) 

The VTOC contains detailed information about each file 
on the disk. Much of this information is for system use 
only and is of no interest to the programmer. The VTOC 
file information significant to the programmer is: 

1. Name. 

2. Starting track location and number of tracks. 

3. Designation (Permanent, Temporary, or Scratch). 


4. Organization (Sequential, Direct, or Indexed). . 


5. Creation date. 
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Source Library 


Procedures, RPG !1 source programs, and KSE input reside 
in a source library. The source library directory contains 
the name and address (track and sector) of each procedure, 
RPG II source program, and set of KSE input in the library. 


Object Library 
Compiled programs and system programs reside in an object 


library. The object library directory contains the name and 
address (track and sector) of each program in the library. 


Files 


Identifying information about every file on a disk is con- 
tained in the disk VTOC. 


A disk is limited to 50 files because the VTOC has space 
for identifying only that many files. 


This chapter applies only to RPG II and FORTRAN. 


In some data processing applications, customers may make 
inquiries that require immediate answers. One customer 

_ may want the status of his account; another may want to 

~ know if an item is in stock for immediate delivery. To 
answer these inquiries, your program must be able to 
access certain disk records. The object program you use 
to retrieve this information is called an inquiry program. 
The following discussion generally applies to both RPG I! 
and FORTRAN; differences are noted. 


Inquiry programs can be executed as part of a normal job 
stream, or they can interrupt other programs that are 
executing provided the executing program can be inter- 
rupted. After a request for inquiry is made, the following 
things occur: 


1. A program being executed is interrupted. 


2. The current status of the program is stored on disk. 


Appendix D. Inquiry Program 


3. The inquiry program is loaded to retrieve and dis- 
play the requested information. 


4. The original program is reloaded and execution 
resumes. 


Requesting Inquiry In an Interrupt Environment 


To interrupt a job prior to loading an inquiry program, you 
must make an inquiry request. To request inquiry, you use 
the system control panel attached to the 1|BM 5406 Process- 
ing Unit (Figure D-2). 


(or]foeffos|[oeliasl TL LAL LIL JE EE deol srese_] 


reo ULMILE J A eo? 


feafbo fbi als LLL ELIE IL] Pee 
[sta fis ele [2 LMM SEI IBIS) 


Figure D-1. Keyboard Format of the Model 6 Keyboard Console 
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To make an inquiry request, move the INQUIRY REQUEST 
switch on the control panel to the ON position (Figure D-2). 
The OCL statements for the inquiry program are entered 
from the keyboard. (At least the READER statement 
indicating that the system input device that contains the 
OCL statements must be entered from the keyboard.) 


IwaQuiny 
REQUEST 


svsTem 
START 





Figure D-2. System Control Panel on the Model 6 


Classifying Programs for Inquiry 


RPG II 


Not al! RPG I! programs can be interrupted by an inquiry 
program. By coding specifications in column 37 (Figure 
D-3) on the RPG || Control Card sheet, you determine 





IBM International Business Machine Corporation 


Program Punching 









































Figure D-3. Inquiry Specification on the Control Card Sheet 
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RPG CONTROL CARD AND FILE DESCRIPTION SPECIFICATIONS 


pee al eae ey fee 


Control Card Specifications 





8 Model 20 
. - ff 3 
3 = 3 S| o Sle ~ rm 
D> 3 . 5 =] S| SIN 3 2 
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whether the program can be interrupted. The entries 
which classify the program are: 

© (blank) — A b-type program is a processing program 
that does not recognize an inquiry request. It cannot 
be interrupted. 


B — A B-type program is a processing program that 
recognizes an inquiry request, and, therefore, can be 
interrupted or stored on disk. 


| — While I-type programs can be loaded as inquiry 
programs in an interrupt environment (see note), a 
program is usually classified as an J-type when it is 
used as an inquiry program that is to remain in main 
storage for the servicing of inquiries. An I-type prog- 
ram can be executed on/y by an inquiry request 
(moving the INQUIRY REQUEST switch to the ON 
position). An I-type program cannot be interrupted 
and stored on disk. 


Note: An inquiry program that interrupts a B-type program 
can be classified as B, B, or I-type. An inquiry program 
loaded to perform a complete job is usually classified as a 
B-type program. An inquiry program loaded to answer 

one request or few requests is usually loaded as an I-type 
program (see Planning Inquiry Programs for further 
information). If a B-type program is rolled out by an 
inquiry program also classified as B-type, the inquiry 
program must complete execution before another inquiry 
request is made. 
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FORTRAN 


A FORTRAN main program may allow itself to be 
interrupted by inquiry programs. Interruption occurs at 
CALL INQCHK statements in the main program. 


All inquiry programs have CALL SETINO as their first 
statement. For more information, see the /BM System/3 
FORTRAN IV Reference Manual, SC28-6874, and BM 
System/3 FORTRAN IV Commercial Subroutines, 
$C28-6875. 


_. Inquiry In an Interrupt Environment 


- An inquiry program can be loaded into storage as would 
any other program, or it can be loaded when an inquiry 
request is made to interrupt a program that is executing. 
When your system is controlled by one program at any 
one time, you have a dedicated system. Therefore, in-an 
interrupt environment you must interrupt the executing 
program to allow the inquiry program to control the 
system. You request an interrupt by moving the IN- 
QUIRY REQUEST switch to the ON position. For RPG II, 
you can interrupt only B-type programs; for FORTRAN, 
you can interrupt only a program containing CALL 
INOQCHK. 
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B-Type 


Program 





The inquiry 
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Figure D-4. Roll-Out and Roll-In of a B-Type Program 





Note: An inquiry program cannot be interrupted during 
processing. 


As soon as the INQUIRY REQUEST switch is moved to 
the ON position, the system sets an indicator and the exe- 
cuting program completes the execution cycle it is in. A 
system routine called roll-out then transfers the B-type pro- 
gram from main storage onto disk, retaining the current 
status of the program (Figure D-4, insert A). Space is al- 
located for the rolled out program at system generation 
time. (See the /BM System/3 Model 6 Operator’s Guide, 
GC21-7501, for system generation procedures.) For the 
scheduler work area size, including space requirements for ° 
roll-in/roll-out, see Library Maintenance Program (SMAINT) 
in this manual. 
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Planning Inquiry Programs 


Since B-type programs can be interrupted, you must deter- 
mine what types of programs should be classified as B-type. 
Usually long reports that do not have to be finished 
immediately, are classified as B-type. Such a report might 
be an end-of-month stock status report. 


Inquiry programs that can interrupt B-type programs can 
be classified as 6, B, or I-type. For example, suppose you 
are running an end-of-month stock status report, and now 
find you must run a payroll job. The payroll job can roll 
out the stock status job to satisfy this requirement. Another 
example of an inquiry program that might need to be 
loaded immediately would be a request to determine where 
a certain inventory item is located so that it can be shipped. 
Since the inventory file is online for the stock status re- 
port, the location of the item could be determined quickly 
by an inquiry program. 
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Those programs you do not want rolled out should be 
é-type. For example, you may be running a payroll job 


‘and checks are positioned for the printer. You may not 


want the payroll program rolled out since the operator 
may have to remove the checks and not reposition them 
correctly. If you are running a teleprocessing program, 
you cannot roll out the program because you will lase 
telephone connections. 


In a dedicated system, an |-type program could be loaded 
for a length of time to answer requests. For example, an 
I-type program could be loaded during the second shift 
of a day to answer inquiries into the amount or location 
of items in a warehouse. An I-type program remaining 

in main storage can only be executed by moving the 
INQUIRY REQUEST switch to the ON position. 


Appendix E. Library Entry Retrieval Subroutine (SUBR 15) 


The Library Entry Retrieval subroutine is incorporated into 
a user-written program in order to retrieve entries from any 
library. Library entires are passed to the user program one 
record at a time. If these records are written to a 5444 
Disk File, that file can be processed by the file-to-library 
function of the Library Maintenance program ($MAINT). 


With SUBR15, a single library entry or a group of entries 
can be retrieved. The user must supply certain informa- 
tion, such as the name of the entry, the unit. containing 
the library (R1, F1, R2, or F2), and the type of library to 
be accessed (source, object, procedure, or routine). 


The format of the records produced by this subroutine 
is the same as the format of the records produced by the 
library-to-punch function of $MAINT. The first record 
returned to the program by the subroutine for each library 
entry is an appropriate COPY statement. The last record 
for each entry is a CEND statement. 


Note: It is the user’s responsibility to ensure that the 
library is not being changed by another program while 
SUBR15 is reading from that library. 


Library Entry Retrieval Subroutine (SUBR 15) 
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USING SUBR15 WITH RPG II 


Linkage to SUBR15 from an RPG II program is via an 
EXIT statement followed by seven RLABL statements. 
Information about subroutine linkage can be found in /BM 
System/3 Models 4 and 6 RPG |1/ Reference Manual, 
$C21-7517. 


These RLABL statements must be specified in the follow- 
ing order: 


Sequence Operation Result Field Description 


1 RLABL field The name of a one-character alphabetic field in the RPG I! program that 
contains a code identifying the desired library: 


O Object 

R Routine 
S Source 

P Procedure 


2 RLABL field The name of a six-character alphabetic field in the RPG II program that 
contains the name of the desired library entry. A library entry may be 
requested by name or-by a partial name followed by a period. Ifa partial 
name is used, all entries in the given library beginning with the characters 
preceding the period will be copied. 


If copying an entire library, a period alone is sufficient specification. 


3 RLABL field — The name of a two-character alphabetic field in the RPG II program 
that contains the unit containing the desired library: R1, F1, R2, or F2. 


4 RLABL field The name of an 80-character alphabetic field, or a 96-character alphabetic 
field, which is to contain each record processed by the subroutine. 


5 RLABL INnn The nn is any RPG II indicator, which will be set on if the desired library 
entry is not found, the library does not exist on the specified unit, or the 
system source library get routine (S$$SYSG) cannot be found. 

6 RLABL INnn The nn is any RPG I! indicator, which will be set on when the request for 
service is complete. When this indicator is set on, the RPG Ii program can 


request another entry or entries. 


7 RLABL INnn The nn is any RPG II indicator, which will be set on every time a record 
is passed to the RPG II program from the subroutine. 


Note: The three preceding indicators are set off by SUBR15 upon receiving control from the user program. 
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Example 


ERROR IDENTIFICATION 


all three indicators are 


set off. Any of the following errors may be detected: 


c 


If an error is detected in SUBR15 


The following is an example that shows how an RPG II 


program can use SUBR15. 


® The unit is not R1, F1, R2, or F2. 


' ® The unit is not supported on the system. 
‘@ The pack on the specified unit is not initialized. 


© The library is not O, R, S, or P. 


@ The record length is not 80 or 96 bytes. 


® The unit, library, or name was changed before end of 


request was returned. 


© The three indicators are not unique. 
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Library Entry Retrieval Subroutine (SUBR 15) 


The following list describes preceding RLABL result fields: 


The field LIBRY contains a code (O, R, S, or P) identi- 
fying the library. 


The field NAME contains the name of the library entry 
or entries to be retrieved. 


The field UNIT contains the code (R1, F1, R2, or F2) 
identifying the location of the library. 


The field RECL96 is a 96-byte field that will contain 
each record. 


Indicator 01 is set on if the library entry is not found or 
if the library does not exist on the specified unit. 


Indicator 02 is set on when the request is complete. 


Indicator 03 is set on for each record. In this example, 
the indicator is used to condition the writing of the 


_record to a file via the EXCPT operation code; by 
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branching to LOOP1 another record is requested. 


Capsule definitions of some common computer terms used 


in this manual. 


conversational OCL 


CPU 


end-of-job-halt 


IPL 


KDE 
KSE 
object library 


object library 
directory 


OCL 


(Operation Control Language) An 
OCL statement consisting of a key- 
word and a response. 


(Central Processing Unit) Nucleus 
of the Model 6 hardware. 


system halt at the end of every job 
to give the operator time for any 
necessary housekeeping chores 
before beginning the next job. 


(Initial Program Load) The process 
by which the operator loads into 
core storage the program that con- 
trols the operation of the system. 


Keyboard Data Entry Utility Pro- 
gram , 


Keyboard Source Entry Utility 
Program 


contains compiled programs, system 
programs, and routines. 


contains name and address (track 
and sector) of each object program 
in the object library. 


(Operation Control Language) An 
OCL statement consisting of 
statement identifiers and parameters. 


procedure 


sector 


source library 


source library 
directory 
source statements 


sysgen 


system printer 


track 


VTOC 


Glossary 


sequence of OCL statements in a 
source library. 


section of a disk track. Each track 
is divided into 24 sectors. 


contains procedures, RPG source 
programs, and KSE input. 


contains name and address (track 
and sector) of each source program 


and procedure in the source library. 


program instructions that have not 
been compiled (translated) into 
machine language. 


(system generation) Process required 
to get a system ready to run after 
installation. 


displays OCL statements, utility 
control statements, job comments, 
and error codes. (The system 
printer can also display the normal 
output of the job being run.) Also 
referred to as system log device. 


Each disk is divided into concentric 
circles called tracks. 


(Volume Table of Contents) That 
part of a disk which contains de- 
tailed information about every file 
on the disk. 


Glossary 209 
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// ALLOCATE 154 
(see also allocate, library maintenance) 
// ALT 95 
(see also alternate track assignment 
program) 
// blank 82 
// CEND 162 
- (see also copy, library maintenance) 
// COPY 162 
(see-also copy, library maintenance) 
// DISPLAY 106 
(see also file and volume display 
program) 
. // END (see END control statement) 
// READER _ 30, 32 
// REBUILD 100 
(see also alternate track rebuild 
program) 
// REMOVE 113 
(see also file delete program) 
// RENAME 181 
(see also rename, library maintenance) 
// SCRATCH 113 
(see also file delete program) 
// UIN 86 
(see also disk initialization program) 
in OCL sample job #1 64 
//VOL 86 
(see also disk initialization program) 
in OCL sample job #1 64 


/& 32 
/* (end-of-job) 32 
card OCL 29 


conversational OCL 4 
? (see delayed response) 


$ALT (alternate track assignment) 
(see also alternate track assignment 
program) 
$BUILD (alternate track rebuild) 
(see also alternate track rebuild 
program) 
as response to LOAD NAME in OCL 
cycle 39 
$CCP communications contro! program 39 
$SCOPY (copy/dump) 
(see also copy/dump program) 
as response to LOAD NAME in OCL 
cycle 39 
in OCL sample job #4 67 


$DELET (file delete) 
(see also file delete program) 
as response to LOAD NAME in OCL 
cycle 39 
$DGSRT CCP/disk sort 39 
$DIU (data interchange utility) 
as response to LOAD NAME in OCL 
cycle 39 
$DSORT (disk sort) 
as response to LOAD NAME in OCL 
cycle 39 
$INIT (disk initialization) 
(see also disk initialization program) 
as response to LOAD NAME in OCL 
cycle 39 
in OCL sample job #1 64 
$KCOPY (copy/dump program) 119 
$KDE (keyboard data entry) 
as response to LOAD NAME in OCL 
cycle 39 
$KSE (keyboard source entry) 
as response to LOAD NAME in OCL 
cycle 39 
$LABEL (file and volume label display) 
(see also file and volume label display 
program) 
as response to LOAD NAME in OCL 
“cycle 39 
$MAINT (library maintenance) 
(see also library maintenance program) 
as response to LOAD NAME in OCL 
cycle 39 
$RPG (RPG compiler) 
as response to LOAD NAME in OCL 
cycle 39 
*comments 32 


adding source library entries 
(SMAINT) 178 
AFTER parameter 181 
allocate, library maintenance 
control statement summary 154 
parameter summary 155 
uses 152 
ALT control statement 95 
(see also alternate track assignment 
program) 
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alternate track assignment program 
control statement summary 95 
example 98 
OCL considerations 97 
parameter descriptions 96 
parameter summary 95 
program name 97 
program uses 93 
alternate track rebuild program 
control statement summary 100 
example 103 
OCL considerations 102 
parameter descriptions 101 
parameter summary 100 
program name 102 
program uses 100 
substitute data description 101 
substitute data summary 100 
alternate tracks 
alternate track assignment 96 
disk initialization 83 — 
incorrect data on 100 
apostrophes in control statements 55, 82 
ASSIGN parameter 96 
asterisk (see comments) 


blanks in control statements 82 

BUILD cycle, when to use 6 

BUILD NAME 
in BUILD keyword-response summary 17 
its position in the BUILD cycle 16 
keyword description 33 

BUILDC cycle, when to use 7 

BUILDC NAME 
in BUILDC keyword-response summary 25 
its position in the BUILDC cycle 25 
keyword description 33 


CALL cycle, when to use 7 
CALL NAME 
in the CALL keyword-response summary 27 
its position in CALL cycle 27 
keyword description 33 
CANCEL 
as response to MODIFY in BUILD cycle 23 
as response to MODIFY in CALL cycle 27 
as response to MODIFY in LOAD cycle 15 
entering the keyword during MODIFY 43 
cancelling alternate-track assignments 94 
cancelling job (see CANCEL) 
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card and diskette considerations (SCOPY) 
card or diskette input 132 
card or diskette output 132 
considerations for copying an entire 
disk 133 
in BUILD keyword-response 
summary 133, 135 
in LOAD keyword-response summary 133 
length and location parameters 132 
OCL 133 
card OCL input 29 
cataloged procedures (see procedures) 
CCP/disk sort (SDGSRT) 39 
CEND control statement 
library-to-card copy 162 
reader-to-library copy 161 
chained procedures 57 
changing 
file designation 38 
object library size 
disk considerations 159, 160 
SYSTEM parameter 156 
work parameter 157 
previous OCL statement during MODIFY 
phase 42 
printed output for system programs (see 
FORMS) 
size of source library 
control statement 154 
disk considerations 158, 159 
work parameter 157 
status of system printer (see LOG) 
character set, standard 198 
clear initialization 84 
coding rules 
control statements 82 
disk utility programs 82 
general 31 
multivolume file parameters 55 
statement order 32 
commas in control statements 
disk utilities 82 


OCL 
deleting statement 42 
in HIKEY 52 
comments 


entering comments during MODIFY 
- phase 43 
on response line 10 
communications control program ($CCP) 39 
COMPILE OBJECT 
in BUILD keyword-response summary 17 
in LOAD keyword-response summary 11 
its position in LOAD cycle 10 
its position in the BUILD cycle 16 
keyword description 34 
compiled RPG program location 34 
compiling large RPG source programs 55 
compiling RPG source programs 
recommended method of 65 
compress in place 160 
conditional assignment of. alternate 
tracks 94 
configuration — ii 


considerations 

allocate 153 

delete 176 

during a call cycle 27 

IPL 48 

keyword-response summary 
build cycle 17 
BUILDC cycle 25 
call cycle 27 
load cycle 11 

modify 178 

OCL 

_ alternate track assignment program 97 
alternate track rebuild program 102 
disk initialization program 90 
file and volume label display 
program 110 
file delete program 116 
library maintenance program 182 
multivolume files 52 

129 programming 29 

3741 data station 29 

5496 data recorder 29 

continuation rules for card OCL 31 

control statements 

alternate track assignment 
ALT statement 95 

alternate track rebuild 
REBUILD statement 100 

coding rules 82 

disk initialization 
UIN statement 85 
VOL statement 85 

file and volume label! display 
DISPLAY statement 105 

file delete 
REMOVE statement 113 
SCRATCH statement 113 

library maintenance 
ALLOCATE statement 154 
COPY statement 162 
DELETE statement 176 
INSERT statement 179 
MODIFY statement 179 
REMOVE statement 179 
RENAME statement 181 
REPLACE statement 179 
required to specify program 

options 123 
conversational OCL, how it works 4 


COPY/DUMP program ($COPY) 

card or diskette input 132 

card or diskette output 132 
considerations (see card and diskette 
considerations) 

control statement summary 124 
COPYFILE statement 126 

copying and printing 120 

copying entire disk 120 

DELETE parameter 130 

disk or file location 119 

examples 136 

FILE parameter 131 

functions 119 

OCL considerations 133 

options 120 

parameter descriptions 129 

printing files 121 

record keys 119 

relative record numbers 119 
REORG parameter 130 
SELECT KEY and PKY parameter 130 
SELECT RECORD parameter 131 
using a work area 119 

copy, library maintenance 

control statement summaries 162 

‘examples 186 

parameter summary 165 


uses 161 
COPYFILE control statement 123 
copying 

entire disk 120 

files 121 


library entries 
file to library 161 
library-to-card 162 
library-to-library 161 
library-to-printer 161 
library-to-printer and card 162 
reader-to-library 161 
multivolume index files 122 
,one removable disk to another on drive 
1 119 
COPYPACK statement 123 
correcting OCL statements 42 
CPU (processing unit) 
definition 209 
create an indexed file from sequential! card 
file 147 
create an indexed file from sequential disk 
input 149 
creating object library 159 
control statement 154 
SYSTEM parameter 155 
WORK parameter 155 
creating source library 158 
control statement 154 
WORK parameter 155 
customer program name 
as response to keyword LOAD NAME in OCL 
cycle 39 
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data interchange utility ($DIU) 
as response to LOAD NAME in OCL 
cycle 39 
DATA parameter (SDELET) 115 
data recorder to OCL code statements on 
cards 29 
DATAQ6 response to keyword READER 29 
DATE (file date) 
in BUILD keyword-response summary 23 
in LOAD keyword-response summary 15 
keyword-description of 38 
position in BUILD sequence 16 
position in LOAD sequence 10 
restrictions during file creation 
runs 38 
DATE (system date) 
in BUILD keyword-response summary 19 
in LOAD keyword-response summary 12 
keyword description 34 
position in BUILD sequence 16 
position in LOAD sequence 10 
DATE parameter of file delete program 115 
DATE statement, format of 
definition 35 
general restrictions 35 
defective tracks 
address on disk 96 
definition (see surface analysis) 
retesting of 88 
delayed response 
definition of, restrictions, effect on 
system 6 
delayed responses in procedure 27 
delete 
files 112 
library entries 176 
object library 
control statement 154 
disk considerations. 159 
previous OCL statement during MODIFY 
phase 42 
procedures 33 
records from a file 121 
source library 
control statement 154 
disk considerations 159 
DELETE control statement 176 
DELETE parameter (SCOPY) 130 
delete, library maintenance 
control statement summary 176 
examples 191 
parameter summary . 177 
uses 176 
designation of library entry 167 
direct files 
deleting records from 131 
OCL consideration for multivolume 
files 52 
records-tracks conversion for 199 
DIRSIZE parameter 156 
disk drive, sectors 83 
disk files 200 
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disk initialization program 83 
control statements 85 
OCL considerations 90 
parameter descriptions 88 
parameter summary 87 
program name 90 
program uses 83 
disk name 
characters allowed in 89 
length of 89 
response to PACK in OCL cycle 36 
uses 
alternate track assignment 96 
alternate track rebuild | 101 
disk initialization 89 
file delete 114 
disk organization 200 
DISP (displacement) parameter 101 
DISPLAY control statement 106 
duplicate procedure names 
general discussion 33 
operator’s options following 33 


EJECT 
in card OCL 30 
in conversational OCL 5, 35 
END contro! statement 82 
end-of-job halt . 
definition 209 
response to READY 5 
ENTER- key, bypassing procedure 
printout 9, 27, 33 
ENTER+ key 
purpose of, when to use 9 
relationship to the PROG START key 9 
uses of 9 
entering comments 
during the MODIFY phase 43 
on response line 10 
error code (see error messages) 
error messages 60 , 
errors in OCL statements, how to 
correct 42 


examples 
alternate track assignment, conditional 
assignment 98 
alternate track rebuild, correcting 
characters 193 
disk initialization, primary 
initialization 91 
file and volume label display, printing 
VTOC information 111 
file delete 
deleting one of several files having 
same name _ 117 
removing one file 118 
library maintenance 
changing source library size 184 
copy file-to-library 189 
copying minimum system 186 
creating libraries 183 
deleting object library 185 
deleting temporary entry 191 
deleting temporary entry—special 
characters 192 
insert source library statements 196 
printing library directories 187 
removing source library 
statements 195 
renaming source statements 197 
replacing library entry 188 
replacing procedure statements 193 
OCL 
chained procedures 77 
compile RPG I! source 65 
copy disk 67 
include utility control statements in 
procedure 76 
initialize a disk 64 
multifile BUILD 69 
multifile CALL 71 ; 
multivolume indexed file creation 73 
multivolume master file update 72 
process customer program 66 
external indicators 
atIPL 48 — 
considerations when responding to SWITCH 
in BUILD cycle 49 
in LOAD cycle 48 
current setting displayed in SWITCH 
statement 48 
using the SWITCH statement to change 48 


file and volume label display program 
control statements 105 
example 111 
OCL considerations 110 
parameter descriptions 106 
program name_ 110 
program uses 105 
file date 
keyword description 38 
restriction during file creation run 38 
file dates 115 ‘ 
file delete program i foe 
control statements 113 
examples 117, 118 
OCL considerations 116 
parameter descriptions 114 
program name 116 
program uses 112 
file designation 
how to change 38 
response to RETAIN in OCL cycle 37 
file keywords 
system-operator interaction during 
prompting of 35 
FILE NAME 
for $DSORT, $COPY, $MICR, SRPG, and 
$KDE 36 
for RPG programs 36 
in BUILD keyword-response summary 19 
in LOAD keyword-response summary 12 
its position in BUILD sequence 16 
its position in LOAD sequence 10 
keyword description 36 
file names, file delete 114 
file statement summary 54 


ah 


- file-to-library copy function of library 


maintenance program 168 


files 
direct 199 
indexed 199 


multivolume 51 
records-tracks conversion for 208 
sequential 199 
FORMS, entering keyword during MODIFY 
phase 44 
FROM parameter, library maintenance 165 


glossary 209 


Index 
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HALT 
in card OCL 30, 32 
in conversational OCL 38 
halt, end-of-job 
definition 209 
HIKEY (see multivolume files) 
hyphens in control statements 82 


IBM-supplied RPG compile procedure (RPG) 
as response to CALL NAME in CALL 
sequence 26 
in sample job #2 65 
increasing size of 55 
IBM System/3 standard character set 198 
ID (identification) parameter 89 
INCLUDE 
during a CALL cycle 47 
entering during MODIFY phase 46 
entering during the MODIFY phase 40 
including contro! statements in a 
procedure 55 
response to MODIFY in BUILD sequence 23 
restrictions following keyword 47 
sample job 76 
special considerations involving INCLUDE 
statements 47 
INCR parameter of MODIFY statement 180 
indexed files 
multivolume 
file statements for 54 
OCL considerations for 51 
OCL sample jobs for 73, 75 
record-tracks conversion for 199 
initial program load (IPL) 
definition 209 
establishing system date at 34 
initialization 
clear 84 
general definition 83 
primary 84 
secondary 84 
INQUIRY program 
classifying programs for inquiry 121 
planning inquiry programs 202 
requesting inquiry 201 
INSERT statement (SMAINT) 
contro! statement 179 
functions 178 
parameters 181 
inserting source library entries 
(SMAINT) 178 
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KEY LENGTH (see multivolume files) 
keyword 
descriptions, OCL 33 
flowcharts, what they are and how to use 
them 2 
prompting 7 
response summary 
BUILD sequence 17 
CALL sequence 27 
LOAD sequence 11 
what they are and how to use them 2 
sequences 2 
for each keyword 33 
what they are and how to use them 2 


LABEL parameter 
file and volume labe! display 107 
file delete 114 
in BUILD keyword-response summary 20 
in LOAD keyword-response summary 13 
keyword description 36 
position in BUILD sequence 16 
position in LOAD sequence 10 
when response is required 37 
large RPG programs, compiling 55 
length on control statements 82 
LENGTH parameter 101, 129 
library 
boundary changes’ 151 
directories 
definitions 152 
directory printouts 170 
object library directory size 156, 157 
source library directory size 158, 159 
entries 
choosing designation 162 
copy considerations 162 
copy control statements 162 
deleting entries 176 
naming entries 167 
organization’in libraries 151 
renaming entries 181 _ 
types 151 
library entry retrieval subroutine 
(SUBR15) 205 


library maintenance program 
control statement summaries 
allocate 154 


copy 162 
delete 176 
modify 179 
rename 181 
examples 
allocate 183 
copy 186 
delete 191 
modify 193 


rename 197 
library description 151 
LIBRARY parameter 165 
library to library copy 
' considerations 168, 169 
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